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The objective of this thesis is to provide a software 
tool to support the Deputy Chief of Staff for Personnel 
and Staff Function of the Indonesian Navy in making 
decisions with fast^ timely, relevant, up-to-date and 
accurate information regarding Personnel Management 
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I. INTRODUCTION 



The most important resource in any organization is its 
personnel. All aspects of an organization are dependent on 
personnel, so a large measure of the success of an 
organization depends on properly managing it*s human 
resources. This makes personnel management a critical task. 

Decisions which affect personnel must be carefully 
planned. Personnel are human beings, unlike other resources 
such as materiel or money. Materiel may be moved about 
without the same considerations involved with moving 
people. Materiel does not need a life-cycle management 
system as complex as personnel management. 

The personnel administration cycle consists of 
procurement, classification, education, utilization, 

treatment, and separation CRef. 13. Each phase must be 
carefully planned and followed by a decision that requires 
information suppot. The information support must be 

accurate, timely and relevant. 

Human memory is limited and does not always 
process information fast enough. A computer can aid the 
human mind because it has the capability to process large 
amounts of data with high accuracy and little error. 

In light of the needs and capabilities described above, 
this thesis will discuss personnel management base on 
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database management using microcomputer s as decentr aliced 
activities. This thesis will investigate the use of a 
microcomputer for processing personnel management data. It 
will show how a decentralized database system can provide 
information to assist a Deputy of Personnel and Staff 
Function in decision making regarding personnel management 
activities. 

9 

This system^ which keeps track of an officer's career 
(job placement, promotion, education, training, etc), 
px*ovides cux'X'ent information regarding an officer's career 
and shows what kind of jobs or education/ training should 
be scheduled for a certain officer to gain required 
knowledge and experience before being assigned a specific 
job. 

A reorganization of the Indonesian Navy was applied at 
the end of 1985- Because of the restructuring and 
insufficient information about the existing personnel 
system, this thesis presents only a prototype for 
implementation. 

Chapter II discusses the Indonesian Navy personnel 
function activities and crucial problem in the present 
system, which the prototype is designed to address. 

Chapter III reviews the database development process, 
which includes: the general system analysis and design, the 
database system concept and the advantages and disadvantages 
of using it, and introduction to database design (both 
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logical and physical)^ with special emphasis on relational 
database design which focuses on the relational forms 
and the character ist ics of relational databases. 

Chapter IV describes the implementation of this 
personnel database system for Indonesian Naval Officers, 
particularly the Officer Career System. 

Finally chapter V presents the conclusion that database 
processing applied to the Indonesian Naval Officer Career 
System, can increase decision making ease, timeliness, 
confidence, and reliability. 

Programs using dBase II are provided so the user can 
easiLy interact with the computer to get information about 
the officer career field. These programs are shown in 
Appendix D. 
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II. BACKGROUND 



A. INTRODUCTION 

The Indonesian Navy has many subsystems^ one of which is 
the Navy Personnel System. The Navy Personnel System is 
concerned with personnel resource utilization, and 
management of other resources to make the Indonesian Navy 
organizationally effective and efficient in supporting 
national defense and security. 

B. PERSONNEL MANAGEMENT FUNCTION 

The Indonesian Navy personnel system has two main 
functions; Manpower Management and Personnel Administration. 

1. Manpower Management 

In general the main functions of Manpower Management 
are: To investigate activities and to determine personnel 

requirements including qualification, quality and quantity 
for supporting the Indonesian Navy's main tasks. 

2* Administration 

Personnel activities have the following life-cycle 
functions: Procurement, Classif icat ion, Education and 

Training, Utilization, Treatment and Separation, 
a. Procurement 

Personnel procurement is the process of 
acquiring new personnel from national human resources 
according to Indonesian Navy Organization requirements. 
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b. Classif ication 

Personnel classif icat ion is the process of 
analyzing and classifying individuals by j ob/occupation, so 
that individual requirements and organizational requirements 
are in balance. 

c. Education and Training 

Personnel education and training are the 
processes and activities which impact knowledge for 
personnel development related to assignments and promotions. 

d. Utilization 

Personnel utilization is the process and 
activity of selecting the right people for promotion and 
job/assignment. By placing the right person in the right 
place^ the personnel assignment system facilitates maximum 
exposure and chances for individual promotion. Maximum 
exposure and promotion support future personnel assignments. 

e. Treatment 

Personnel treatment is a complex fields and is 
not an easy job. Activities in this category include salary, 
allowance (wife, children), morale, leave, recreation, 
rewards or awards, medical, insurance, etc. 

f. Separation 

Personnel separation is the process and 
activity of keeping a satisfactory balance within the 
organization while dealing with personnel retirement. 
Personnel retirement occurs: 
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When manpower control and composition needs in 
the organization result in personnel separation 
(reductions in force). 

Because of normal retirement. 

C. PERSONNEL SYSTEM REQUIREMENT 

Information to support decisions by the Deputy of 
Personnel must be relevant^ timely and correct. 

The organization must maintain many files in the 
personnel system such as payroll^ separation^ reward^ 
classif ication^ education and occupation. In a file 
processing environment^ these result in a high degree of 
data redundancy and are difficult to maintain and update. 
For example, after a promotion all files related to rank 
must be changed. Similarly, for personnel career planning, 
all education data, occupation data, and rank data must be 
provided on the same report. 

It is not easy to retrieve information from different 
files in a short time, and it is inefficient to support 
these kinds of information needs using file systems. In 
order to . avoid duplication, and to facilitate fast 
retrieval, a relational database system may be a desirable 
alternative. 

Using a relational database system allows an 
organization's data to be processed as integrated files. It 
reduces artificially imposed constraints caused by separate 
applications and permits the Deputy of Personnel and his 
staff to access data more naturally. 
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D. 



THE CRUCIAL PROBLEM IN THE PRESENT SYSTEM 



Personnel Administration cycles like training, career 
planning, promotions, job placement and separation pose many 
administrative problems. Training must have standardization 
grades, personal records for each trainee, personal biography 
etc. It is difficult to maintain and retrieve such data 
accurately and guickly. 

The Navy Officer promotion system recognizes two periods 
in a year, April and October. So much data must be collected 
for supporting the candidate's promotion that it is 
difficult to retrieve data from the source. Sometimes human 
errors occur or too much data is collected. 

When career planning is done by hand, the same problems 
recur because one must collect and gather data from a filing 
cabinet and then match it with each person and job. 

When updating data related to promotion, a new job or 
new education it is difficult to manipulate data manually. 
When calculating a pension for example, it is difficult to 
provide information guickly because the birth date must be 
subtracted from the current year by manual methods. When the 
executive or the Chief of Staff needs adhoc information 
from the Deputy of Personnel, manual systems cannot provide 
results guickly, thus he cannot make the decision with 
conf idence. 
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E. 



CAREER MANAGEMENT CONTROL 



Three main activities occur in career control: 
promotion^ education/ training and job placement. Each 
closely supports the others. 

1* Pronjotion 

As mentioned earlier^ the regular officer promotion 
system recognizes two periods in a year, April and October. 
Three or four months before, the candidates are proposed 
from naval stations/bases such as West Fleet, Marine Corps 
and other Main Commands. Much data must be collected to 
support the candidate's promotions, such as conduct, 
previous jobs, rank history, education and training 
history, and other administrative information. 

Sometimes this information appears with manual typing 
error or incorrect information because of human errors, and 
much time is lost correcting it. 

After collecting this information, the career control 
staff* can examine and clarify which officers are 
eligible for promotion. Education, job placement and date of 
rank determine eligibility. The staff then matches this data 
with data from the personnel data bank. This procedure, if 
done by manual methods as is currently the case, is very 
time consuming and requires much staff and clerical support. 

2. E^l^cational 

The educational system and its administration is a 
bit different from the promotion system. Information about 
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education comes from centralized activities, 



but the same 



administrative process occurs as with the promotion system. 

An example is the military education level from general 
development, for example the Second Officer Continuing 
Education corresponding to the US Army Officer Advanced 
Course. By collecting and gathering the data from filing 
cabinets, the career control staff can clarify and examine 
which officers are eligible to attend this course. After 
that they send a message/telegr am to the Main Commands or 
Naval Stations. Main Commands then respond concerning the 
officer's elligibility for this course by sending a 
message back to Deputy for Personnel. Again the career 
control staff handles this information from all the Main 
Commands and Fleets. A lot of time is spent in clerical 
tasks, and even more staff is needed to handle educational 
activities. 

3. Job QlaceTnent 

For regular Job placement the peak load activities 
happen as the officer nears the end or finishes a course. 
After examining the officer's previous Job experiences and 
educational background, the career control staff examines 
alternatives and decides where the officer would beet serve 
in a new Job. Again, if it is done by manual methods, 
sometimes information is incorrect and it is time consuming 
to correct. Just as with the promotion and educational 
systems, the officer data are kept in filing cabinets. 
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III. DATABASE^DEVELQPMENT PROCESS 



A. SYSTEMS DEVELOPMENT 

The software engineering field is interesting and 
challenging because it requires the combination of both 
science and art. Software is an intangible thing^ so it 
is more difficult to measure^ evaluate and estimate than 
other engineering products. 

9^ Systems Analyst 

The Systems Analyst is known by various names such 
as Systems Engineer^ Systems Designer^ or Programmer 
Analyst. Currently System Analysts are usually located in or 
near the computer functions in an organization. It is most 
common to find them in a project development department 
which reports to the director of the information system, 
although Systems Analysis and Design are sometimes 
decentralized into the functional areas that process 
information. 

A Systems Analyst tries to trace the current systems 
/manual systems and uses various means of information 
gathering techniques, such as interviews, quest ionaires, 
observation, and document examination. He must try to choose 
the techniques that best fit the situation of the user 
organization. He also must evaluate this information 
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in order to recognize the problem and provide alternative 
solutions (Figure 3.1). 



Trace the current system / manual 



Techniques 



Interview 



Quest iona ire 



Observation 
Document exam^ etc. 



Evaluate 






Solution 



Figure 3. 1 Tasks of Systems Analyst. 



2* Software Life Cycle 

The software engineering process is very complex. 
If software engineering is not provided with comprehensive 
and integrated tools^ techniques and disciplines that 
support all activities of the development life cycle^ 
productivity and quality can not be expected to realize 
substantial gains. The software life cycle may be 
fundamentally partitioned into the development phase and the 
operations and maintenance phase. There are many 
interpretations of the various development phases of 
software, but the important thing to remember is that the 
larger the project, the more detailed the engineering design 
phase must be. One methodology for software life cycle is 
the Waterfall model. CRef. 2], is illustrated in 



IS 



figure 3. 2. The original version 
1970 and was foreshadowed in 
industry publications such 
Rosove, 1967. 



was presented in Royce, 



various 


U. S Air 


Force 


and 


as Air 


Force, 


1966 


and 





(Reprinted from CRef. 23) 
Figure 3. 2 Waterfall model. 
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As seen above^ each phase culminates in a 
verification and validation activity. By verification and 
validation one can eliminate as many problems as possible in 
the results of that phase. So each product phase is the 
basis for the next product phase. 

System Feasibility 

System feasibility must consistently^ 
comprehensively and accurately represent the user 
requirements. System feasibility is determining its life 
cycle feasibility and superiority to alternate concepts. 
The model of the system at the system feasibility level 
must-j support analysis and validation of the required 
operational capability as well as understanding the user and 
the developer. 

This phase determines the required functions^ 
interfaces^ and performance for the software product. 
Another activity is supporting the analysis of all 
subsystems from the system viewpoint such as 
communicat ions and peripheral devices. The objective of this 
phase is to provide requirements for each of the 
subsystems. This involves trade-off studies of the overall 
system model to arrive at a complementary set of 
requirements for each subsystem that will^ when integrated^ 
collectively provide the behavior identified in the software 
plan and requirements. 
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c. 






In this phase we consider the primary 
deliverable for software design. The design specif ica t ion is 
a document with verified specif icat ion of the overall 

hardware/software architecture^ control structure and data 
structure for the product. The design specif icat ion 

serves dual roles by providing a guide to software 
implementation (coding) and testing^ and assisting the 
maintainer after software has been released. The 

specification can undergo considerable change during the 
software life cycle^ therefore it is essential to review 
the ^.design documentation at each step in the development 
phase. This phase can also provide a user manual's draft and 
test plan if necessary. 

With the use of a design representation that may 
be graphical^ textual or tabular a detailed procedural 
specif icat ion for the software is created. Like a blueprint, 
the detailed design specif ication should provide 

sufficient information for someone other than the designer 
to develop the resultant source code, 
e. Coding 

The final objective of software engineering 
is to translate representations of software into a form that 
can be understood by the computer. In this phase the 
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activity is a process that transforms 
programming language^ such as Pascal, 
dBase II 



a design into 
Cobol, Fortran, 



a 

or 



After each progr 

individually, the next step 
program components are put toge 
tested in its entirety. 
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g maintenance such 



as : 



1. Correction because of one or more coding 
errors. 

2. Correction because of changing environment 
(new generation of hardware system, new 
operating system, new software version etc). 

3. Correction to improve the software even though 
it may not have any errors. 

B. DATABASE SYSTEM CONCEPT 



Demands on data 
effectiveness and 



processing 
ef f iciency 



professionals to improve the 
of their organizations have 
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caused them to turn to database technology. Unfortunately 
many organizations are switching to a database approach with 
little or no understanding of the concept. 

Database systems in general stress controlled data 
redundancy^ faster processing time^ higher reliability, 
reduced storage requirements, program independence from 
changes in the storage structure, control of data 
administration, and a better definition of data. A database 
system is powerful, but to achieve these goals is not a 
simple matter. 

a Resource 

,, Data has no value if it cannot be processed or 
retrieved in a timely and accurate manner. With the growth 
of computer capability in terms of more speed and memory, we 
can now process information rapidly and consistently. 

Using file system applications, data is usually 
associated with a single functional application program, 
for example personnel data is associated with a personnel 
department program, logistics data is with a logistic 
department program, and payroll with a accounting department 
program. Some items might be stored in more than one 
functional area. For example, name and rank might be stored 
in the personnel department, accounting department and 
logistic department. Once the data itself is modified or 
changed, all the functional areas must change that data. 
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This ±3 not efficient. As a result we get redundant and 
inconsistent data that increases the possibility of errors. 

When using a database^ the data must be commonly 
defined and consistently organized. Data must be organized 
so that they can be used by the entire system. Any update 
in one area must update all of the database records relating 
to this data regardless of where they are stored. This 
approach reduces and controls duplicate data storage and 
also makes integrated processing possible. 

2. Database Management System 

Database has been defined in many ways in the 
litei’ature. Kroenke's definition CRef. 3] is that a 
database is a collection of files and relationships among 
records in those files. Actually a database is more than a 
collection of files; it is a collection of integrated files. 

A database management system (DBMS) is an integrated 
software package that allows users to define th e structure 
of the database^ access the database and administer the 
database. One or more languages is provided to accomplish 
these tasks. 

The data manipulation language (DML) is a language 
used to access the data in he database; a DML is used 
to perform insertions^ deletions^ changes^ and retrievals. 
Also DML can be defined as an extension to a host 
programming language^ such as COBQL^ FORTRAN and query 
language ( QL ) . The data definition language (DDL) is used 
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to define the logical structure of the database and 



can be 



used to specify data items and their interrelationships. 

The primary advantage of using a DBMS is that it 
provides data independence which means the database user 
does not need to be familiar with implementation details. 
Changes can be made to the data or to the schema with 
little impact on application programs using that data. 

A second advantage is that it provides an integrated 
package of tools for handling data with greater 
standardization and control. 

However^ a general purpose DBMS might not be as 
efficient for a specific application as specialized 

software. 

3. Database Administration 

A database design project must have its own 

centralized administration. The systems development manager, 
therefore, must ensure that controls for the systems 
development project are not neglected. 

Because of the shared nature of the data resource in 
the database approach, a centralized function is required to 
manage and protect it. Access to this data must be 
controlled. No function can be allowed to modify the data 
without the permission of the individual who is responsible 
for that. The Database Administrator is responsible to 
maintain access and security for all of the data. 
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Database Administration is a very complex job 

because the information which the user needs is varied and 



wide-ranging. Thus the Database Administrator must deal with 
providing the requested information. Issues to be considered 
include : 

a. Whether different functional areas need to 
share the database. 

b. Whether all levels of management (upper, 
middle, lower) need the information and how 
to structure the database to solve this 
problem. 

c. The database structure which must be 

implemented to provide information in an 
accurate, relevant, and timely manner. The 
more information we need, the more data 
structure must be designed. 

Advantages and disadvantages of using a database 

File systems and database system each have their own 
advantages and disadvantages CRef. 3: pp. 3-7]. 



a. Advantage of Using a Database: 

1. Enables more information to be produced from 
a given amount of data. 



2. Elimination of duplication saves file space, 
and to some extent, can reduce processing 
requirements. The most serious problem of 
data duplication is that it can lead to a 
lack of data integrity. A common result of a 
lack of data integrity is conflicting 
reports. Perhaps nothing is more 

aggravating to management or more 

embarrassing to the data processing staff 
than to be confronted with computer reports 
that disagree. 



3. Creation of program / data independence. 

Data independence means that when the 
data structure changes, application programs 
keep running without being changed. 

4. Better data management. 

When data are centralized in a database. 
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b. Disavantages of using a database 

1. Using a database can be expensive. 

The DBMS may occupy so much main 
memory that additional memory must be 
purchased. Conversion from existina systems 
can be costly^ especially if new data must 
be acquired. Operating costs and overhead 
for some systems will be higher. For 
example, sequential processing of payroll 
will never done as fast in the database 
environment . 

2. Database processing tends to be complex. 

Large amounts of data can be 

interrelated in the database. This means 
more sophisticated programming, and at 
course highly qualified systems and 

programming personnel are required. 

3. Backup and recovery are more difficult. 
Because of increased complexity and because 
databases are often processed by several 
users concurrently , backup and recovery 
are more difficult. 



4. Security more difficult. 

Integration, and hence 
increase vulnerability 

problems because all data 
under one system. 



centraii 2 :atior], 
to security 
are centralized 



C. DATABASE DESIGN 

A database contains a diversity of related data so that 
typically the equivalent several files are used to hold the 
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data. 



Other 



files may be needed to hold descriptive 



information about the data and their relationships. 

The analysis of databases concentrates on logical 
structures. The result of this analysis is a precise 
specif ication of the contents and required manipulations for 
the database. 

An integrated collection of support programs and file 
structures to support a database, its logical requirements, 
and an interface to user program is called a database 
management system. For that reason alone, the design of a 
database will be the most important component affecting how 
well^^a system will work. 

The design of a database describes how the data in 
the system is divided into the different files or records. 

Database design basically has three steps: 

Decide what data should be stored. 

For the logical database design, identifying data 
entities, attributes, and relationships. 

For the physical database, it means physical storage 
of data on storage devices and the resultant 
performance of the database design. 

^9 Stored 

If the system is at all complex, the designer needs 
to consider what kind of data should be stored. First he 
must look at the output or proposed output. Before the 
required output can be displayed on a screen or printed on a 
report, the data must be in the database somewhere. For 

example, if the system must print personnel addresses, it 
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will need the name^ street^ city^ zip code and so on. Or, if 
the system needs to know how old personnel were when they 
retired, the designer must store data from which age may be 
calculated (for example, birth date and the retirement 
year ) . 

Most of the data entered will appear immediately 
on the output reports, but not always. The user may decide 
that a piece of data is not being used now, but might be 
needed in the future. The solution in such a case should be 
to enter it now. This may cause a little more data entry, 
but it is easier to have data entered as it is captured, 
rather than later when it may not be available. 

A database contains many types of data items. These 
data items have to be associated into a database structure. 
A systems analyst tends to group together in records 
collections of data items which data processing views as 
being useful. The logical database structure is the 
foundation on which most future data processing will be 
built. Future organizations will be managed with database 
resources, networks to access the databases, and end-user 
software for employing and updating the data. 

The logical design begins with an investigation 
of user requirements and ends with a logical description of 
a database that can support those requirements. Logical 
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description such as data models present logical views of 



real entities and their relationships* An entity 
a tangible object such as a person. It may be int 
such as a Job title. Entities have properties, 
attributes, which associate a particular value 

domain of attribute values with each entity. E 
of attributes are color or name. Usually the domain 
attribute will be a set of integers, real numb 
strings. An entity usually has a data item that u 
identifies it. 

For example, employee number is the 

identifier of the employee entity. Figure 3.3 is a sa 
entities and attributes. Shown below the serial numbe 
unique key. Entity sets can be represented by a 
box, see figure 3. 4. Data models describes entity 
entities, attributes and their relationships. Relati 
among them are addressed by the relational model. E 
are relationships between college, departments, prof 
and courses. 
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Entities 



Serial # 
001234 



002134 

006789 

A 



Attributes 
Name Address 

David Gcean Ave 

Mike Seventh St 

Fred Third Ave 



I 

Entity # 

Figure 3.3 Entity set example. 
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Department 



Figure 3.4 Entity set diagram. 

College, department, professor . and courses are 
identified as entity sets. Figure 3. 5 shows the 
relationships between these entity sets. The relationship 
between college and its departments is called one-to-many, 
in ^‘.that any one college may have many departments 
(Administrative, Computer, ORSA). The same relationship 
exists between departments and their courses. 

Many-to-many is the relation between Professors 
and Courses: One professor can teach many courses, and one 
course can be taught by many professors. 




Department 




• > > 



Course 



Figure 3. 5 Relationship diagram. 
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The result of the physical database design is 
specif ication of the storage allocation parameters. Setting 
up the database on a real computer is called physical 
database design. In other words^ the physical database 
is the component of the database that confirms the 
computerized version of the logical database. 

The physical database consists of five components 
CRef. 4: pp. 30-333: storage structure^ access strategy, 
data loading^ data update^ and data maintenance. 

Knowledge of the storage structure is important 
because it indicates the power of the DBMS for certain 
applications. The storage structure is the physical 
architecture construction. Its consists of dictionary, 
indexes^ relationships^ data. The dictionary is the 
repository of the information represented by the compiled 
data definition language. Each DBMS's dictionary is unique. 

For faster access^ index mechanisms are needed. 
There are two kinds of indexes, primary and secondary. The 
primary indexes are unique value guaranteed and the 
secondary indexes are repeated values allowed. 

The connections between record occurrences are 
called relationships. There are two kinds of relationships, 
static and dynamic. 

The data part of he storage structure contains the 
occurrences of the records. Static DBMS have multiple record 
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type data storage structures. Dynamic DBMS have a separate 
data storage structure for each record type. 

An access strategy is a collection of routines that 
insert data into and retrieve data from the database. 
Understanding access strategy is basic to knowing why 
certain operations take longer than others. 

Data loading is the process of inserting large 
quantities of data into the database at one time. Some DBMS 
allow or require data to be loaded in certain ways to 
achieve efficiencies during subsequent updating and 
reporting. 

The updating process attempts to ensures current 
data. Critical in the updating application is how well the 
DBMS handles additions of new records, modification of 
element values, modifications of relationship occurrences 
and deletions of existing records. 

The most important requirement for database 
maintenance is the creation of a backup copy of a database. 
While creating a backup is certainly the first step in 
backup-and-recovery , the jnature of the backup process needs 
to be understood so that sufficient resources can be 
allocated to its accomplishment . 



D. RELATIONAL DATABASE DESIGN 

In a filing system, each functional area has it own 
files and procedures. Because of this there is a complex 
flow of paperwork between the functional areas. In this 
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case data for different areas are separately maintained 
in separate files. It is hard to manage this data. Accuracy 
is lost , and maintenance and change are difficult to 
accomplish. 

But when data are designed into an integrated 
database system, the data structures become more complex 
but the data flows are simplified. The data are consistent 
and accurate. 

Changes in procedures can be made rapidly. 
Fundamentally different analysis and design techniques 
are needed. 

Q9En!§i ^9?I!!19 

When modification of data has unexpected 
consequences, it is refered to as a modification anomaly. 
A deletion anomaly exists if the deletion of one entity 
deletes facts about a second entity. An insertion anomaly 
exists if an insertion of a fact about one entity cannot 
be made until a fact about a second entity is known. 
Anomalies can be removed or eliminated through 
normalization, but this normalization process can create an 
interrelation constraint . 

2. E9rn)9 

All relations are by definition in first normal 
form. When there are no repeating groups the relation is in 
first normal form. See figure 3. 6 
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A relation is in second normal form if all nonkey 

attributes are dependent upon ail of the key attributes. 



No attribute is dependent upon only part of the key.’ The 

second normal form is illustrated in Figure 3. 7. 

UNN0RMAL12ED RECORD: 

Order 



ORDER* 


CUSTOMER-^ customs R- 


! CUSTOMER- 


1 DATE 


1 NAME 


1 ADDRESS 
I 



product- 


1 PRODUCT. 


quantity- 


T ^ ^ 

! PRODUCT- 1 PRCOUCT- ' 0=>DEfl- 


number i 

1 


! NAME 

1 


ordered 

1 


1 PRICE 1 total [TOTAL 



L 



FIRST NORMAL FORM: Remove the reoeatmg group. 





Figure 3.6 From unnormaiized to first normal form. 

When relations are in second normal form, they may 
have transitive dependencies. These dependencies are removed 
by placing the relation in third normal form. 

A relation is in third normal form if it is in 
second normal form and has no transitive dependencies. 
All attributes must depend upon all of the key, and 
dependencies are not transferred from one attribute to 
another. Third normal form is illustrated in figure 3.8. 
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pnrna»y at 0^C6 ® P^COL/CT aoove 




Oraer-Proaucf 



1 \ X 


ORDER# 


PRODUCTS 


C'JAMriTV, I PRODUCT. 
OflOERED 1 total 



Product 





P°CDUCT- 


1 PQOOUCT- 


ppooucT^r 


uAwe 1 


1 PRICE 



(Reprinted from CRef. 5: p’, 181]) 



Figure 3. 7 Second Normal Form, 

THIRD NORMAL FORM* Remove attriouifs ceoenoent on ca:3 itemls) otn«r tnan ire orimary key. 
35 in tne ORDER recoro aoove. 






Product 




PRODLCT 


PRODUCT 


product 


NUMBER 


name 


PRICE 



(Reprinted from CRef, 5: p. 181]) 

Figure 3, 8 Third Normal Form, 
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3 



Design Criteria 



The 


first design 


criterion is 


el imina t io 


n of 


modification 


anomalies. If 


relations cannot 


be put 


into 


normal form. 


then modification anomalies 


do 


not ha 


ppen . 



Relations that are in normal form are prefered^ and 
normal for that is become is a design objective. 

Relation independence is the second design 
criterion. Two relations are independent if a modification 
can be made to one relation without affecting the other 
relation . Relation dependence is sometimes caused by 
normalization to remove modification anomalies. This effect 
causes a conflict in design criteria. 





The third 


criterion 


is 


ease 


of 


use. The desiq 


should 


structure 


relations 


so 


that 


they 


are familiar an 



natural to the users. 



37 



IV. DATABASE IMPLEMENTATION 



A. INTRODUCTION 

The main purpose of this chapter is to design a database 
system which may be used by the Indonesian Navy Deputy of 
Personnel to make more effective decisions. 

Personnel management was previously defined as those 
managerial activities that deal with procurement, 
development, maintenance, utilization and separation. This 
is also known as the personnel management cycle. For 
supporting these activities, data must be accurate and 
timely. All of the personnel activities are controlled 
by the Deputy of Personnel. These include education, 
training, promotion, and job evaluation. 

The computer can help support the Deputy of Personnel 
with various decision making processes because of its 
speed and accuracy in processing large amounts of data. 

An organization can more easily decentralize its 
operations when it uses interactive processing. This adds 
a new dimension to the Personnel Management Information 
System by allowing easy editing and filing of existing and 
new data. 

After careful analysis, it was decided that the 
functional requirement described in Chapter II suggested the 
application of a relational database. This j ust if icat i on was 
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based not only upon various possible record relations 
but also the frequency and volume of the exp 

transactions. Promotions occur regularly twice a 

Officers are selected for promotion based on require 
because of job vacancies particularly for the colonel 
flag officer. For this purpose the system should be des 
with a query capability. 

For example the amount of officer records is a 
8000, with five to seven percent eligible fox' promo 
and because of limited vacancies only two or three pe 
actually are promoted accepted. 

The same thing occurs in educational and job place 
Comparing the officers' chances for various schools, 
most significant hurdle is from Second Officer Educat 
level to Command and Staff College Level. This happens 
a fiscal year and is usually followed by job place 
This kind of job placement is predictable, so it c 
prepared as the officer nears the end or finishes a co 
But managers still need some queries to handle 
problem, because there are many irregular job place 
because of job requirements from outside the 
organization, for example D 0 D. The system should be 
to provide relevant information i mmediatel y to support 
decision making by the Director of Personnel or Sta 
fill those job vacancies. 
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The above is based on career applications only. Besides 
this, there are other applications such as rewards and 
pension. Again, the system should eventually be able to 
handle all personnel officer activities. 

B. RELATIONAL DATABASE DESIGN AND APPLICATION 

There are many ways in which a database can be designed. 
This design will describe a design theory and application 
for the Indonesian Naval Officer Personnel System^ 
particularly the career system, where education, rank 
and job evaluation are involved. 

The most important phase in the design of a database 
is in the relational database design, where the x^ecord 
relationship and record structure will be developed . 

^ • 5^99£^-5^1li:i9Qshig 

Relationships can be specified in a variety o± 
ways. One technique is called a Bachman diagram or 
structure diagram. See figure 4. 1. 



Intersection In t ersect ion 




Figure 4. 1 Bachman diagram 
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The above diagram shows the relationships among 
records. The single and double arrow notation is used to 
express relationships among records. There are lour 

different relationships, one-to-one, one-to-many, 

many-to-one, and many-to-many relationships. 

Examples as follows: 

a. One-to-one. 

An officer can only have one set of body 
char acter ist ics and vice versa. 

OFFICER < > BODYCHAR. 

b. Qne-to-many. 

One of f icer may have attended several military 
schools. 

OFFICER < >> MILEDU. 

. c. Many-to-one. 

Many differents jobs in job records history v;ill 
have been performed by one officer. 

JQBQFF << > OFFICER. 

d. Many-to-many. 

An officer can be eligible for many jobs or vice 
versa. 

OFFICER <<--^ >> JOBLIST. 

Record structure shows the relationships among 
attributes, where the key attribute is underlined and 
uniquely identifies each record . F or many-to-many 

relationships between records, another record is needed, 
called an intersection record. This record is device fox' 
integrating two or more files and the keys of the files 
being integrated must appear in the intex'sect ion recoi'd. 
Examples of record structure as follows: 
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1. 


Personal identification 

OFFICER (SERNO, NAME, CORPS, RANKID, EDUID, SEX, 
BIRTHDD, BIRTHMM, BIRTHYY, BIRTHP, RELIGION) 


2. 


Body character istic 

BODYCHAR (SERNO, WEIGHT, HEIGHT, SKCOLOR, HRTYPE, 
EYCOLOR, BLOOD, SHOE, HAT, UNIFORM) 


3. 


Rank (intersection) 

RANK (SERNO, RANKID, RANKDD, RANKMM, RANKYY, 
RORNO, RDATORNO) 


4. 


Military education (intersection) 

MILEDU (SERNO, MEDUIRANK, MEDLEVID, MEDUID, 
MDDEDST, MMMEDST, MYYEDST, MDDEDED, MMMEDED, 
MYYEDED, MEDUDUR, MEDURSLT) 


5. 


General education (intersection) 

CIVEDU (SERNO, CEDURANK, CEDLEVID, CEDUID 
CDDEDST, CMMEDST, CYYEDST, CDDEDED, CMMEDED, 
CYYEDED, CEDUDUR, CEDURSLT ) 


6. 


Occupation (intersection) 

JOBOFF (SERNO, JOBID, JOBRANK, JOBDD, JOBMM, 
JOBYY, JOBECH, JORNO, JDATORNO) 


7. 


Occupation list 

JOBLIST (JOBID, JOBDES, ECHELON, JOBSTAT) 


8 . 


Rank requirement for occupation (intersection). 
JOBRNK (JOBID, JQBRK ) 


9. 


Corps requirement for occupation (intersection). 
JOBCORP ( JOBID, JOBCO) 


10. 


Military education requirement for occupation 
(intersection). JOBEDU ( JQBID, JQBED ) 


11. 


Military education list 
MEDULIST ( MEDUID, MEDUDES) 


12. 


General education list 
CEDULIST ( CEDUID, CEDUDES) 


13. 


Rank list 

RANKLIST (RANKID. RANKDES. RKECHREQ) 



C. INTERRELATIONAL CONSTRAINTS 

As Kroenke says CRef. 3: pp. 286, 305J, not all 

relational database designs are equal, some are better 



42 



than others. The important point is^ a design that meets 
the user's needs is better than one that does not. 

When a relation is normalized^ this often may 
eliminate modification anomalies at the expense of creating 
interrelational constraints. The elimination of anomalies 
may, however have a disadvantage as well. Everytime a 
record is split into two or more relations an 
interrelational constraint is created. The initial job 
relation had modification anomalies because it was not in 
2nd normal form. We eliminated these anomalies by splitting 
the relation into the "JOBOFF" and "JOBLIST" relations. 

The interrelation constraints occur, because two 
relations share the attribute "JOBID”. However a "JOBID" may 
not exist in "JOBOFF” if it is not in ’’JOBLIST". 

We can say that the values of "JOBID" in "JOBOFF" must 
be a subset of the values on **JOBID" in "JOBLIST". See 
figure 4. 2. 




Figure 4. 2 Example of JOB relational. 

D. THE DESIGN APPROACH 

The design of this system was approached by considering 
the output required and anticipating the questions and 
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queries that management might ask. Output would be provided 
in both screen and printed form. 

The following are examples of some queries and output 



form : 



1. Query rank. 

a. Gives the information about all of officers 
in a certain rank, screen or printer. 

b. List an officer's promotion history by entering 
his serial number, screen or printer. 

2. Query education. 



a. Gives the information about ail officers who 
have a military education level (e.g. Command 
and Staff College level), screen or printer. 



b. 



Gives the information about all o 
have a specified military education 
Command and Staff College), screen or 



fficer who 
(e.g. Navy 
printer. 



3. Query job. 



a. List all officers eligible 
job, screen or printer. 



for a certain 



b. List all jobs which an officer may be eligible 
for, screen or printer. 



4. Print personnel. 



a. Gives all information about all of the officers 
list by by name (screen or printer). 

b. Gives all information about all of the officers 
listed by serial number (screen or printer). 

Based upon the estimated outputs, the next step was to 



define what kind 
outputs and what 
included into the 
Appendix B.) 



of data 
kind of 
dBase II 



was required to support these 
record structure should be 
database. (See data dictionary 
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E. 



SYSTEM CONSTRAINTS 



The system has certain hardware and software 

constraints. These constraints are : 

1. This system must use DOS operating system version 

2. 0 or higher. 

2- This system uses dBase II database management 

program. 

3. This system runs on IBM PC or compatible only. 

4. The widths of the output are less than S0 columns. 

5. In order to make additions, changes and deletions, 
the users must be familiar with the design of the 
system and know about this data structure. 

F. SYSTEM EXPANDABILITY 

By the design of its data structure, this system can be 
expanded. Some of the possible expansions are: 

1. The system can be expanded by creating and adding 

data files such as: 

a. Personal identif ication data structure (birth 
date, birth place). 

b. Personal character istics (weight, height, hair 
color, eye color, etc). 

c. Family data (spouse, children, address, sex, 

birth date, and birth place). 

d. Payroll (main salary, wife allowance, children 
allowance, and deductions ). 

e. Uniform sizes and other possible personal data. 

2. By adding the above to the data structure, the 

output can be easily expanded to include: 

a. Output reports for payroll. 

b. Output reports for personal char acter ist ics. 
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c. Output reports for occupation. 

d. Output reports for families^ etc. 

3. Updating modules for the addition of data files as 
described above. 

G. HIERARCHY CHART OF THE SYSTEM 

The diagram below (figure 4.3) is the hierarchy chart of 
the system, where each block/module has a specific function, 
such as adding or updating a ’record. Each module has 
submodules with similar functions but different tasks, such 
as officer record addition, Job record addition, etc. 




Figure 4.3 Hierarchy chart of the system. 
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H 



IMPLEMENTATION 



As mentioned before^ the design of this system was 
approached by considering and anticipating the questions 
and queries that management might ask* The following are 
examples of queries relating to educational and job 
information. 

1. Educational Information 

a 

After successfully "booting" the system and reaching 
the main menu by following the instructions in the user 
manual (Appendix A), the user can choose one of the main 
menu selections ( igure 4.4). 



OFFICER MAIN-MENU MAY 1986 

A > ADD RECORD 

D > DELETE RECORD 

C > CHANGE RECORD 

P > PRINT 

Q > QUERY INFORMATION 

R > RETURN TO DATABASE 

S > RETURN TO DOS 

SELECT AN ACTION BY LETTER ====> : : 

Figure 4. 4 Main menu selections. 



47 



Selecting the <Q> option from the menu result in a 
query menu selection (see Figure 4.5) and again the user 
chooses one of them. For selecting <A> will provide the 
military education level for an officer. The next screen 
show the list of military education level and the 
corresponding code (see Figure 4.6). 



QUERY 



MENU 



MAY 1986 



QUERY OPTIONS 

A > PROVIDE MIL. EDUCATION LEVEL INFORMATION 

B > PROVIDE ANY MIL. EDUCATION INFORMATION 

C > PROVIDE RANK HISTORY INFORMATION 

D > PROVIDE JOB HISTORY INFORMATION 

E > PROVIDE JOB ELIGIBLE INFORMATION 

F > PROVIDE OFFICER ELIGIBLE INFORMATION 

TYPE RETURN KEY, RETURN TO MENU 



SELECT AN ACTION BY LETTER =====> : : 



Figure 4. 5 Query Menu Selection. 
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QUERY 



MILITARY EDUCATION LEVEL 



MAY 1986 



MIL. EDUCATION # DESCRIPTION 

11 NATIONAL DEFENSE 

12 JOINT COMMAND & STAFF COLLEGE 

13 COMMAND AND STAFF COLLEGE 

14 STAFF COLLEGE 

15 2nd OFF. CONTINUING EDUCATION 

16 1st OFF. CONTINUING EDUCATION 

17 NAVAL ACADEMY 

18 BASIC OFFICER SCHOOL 

19 CANDIDATE OFFICER SCHOOL 

PLEASE SELECT ONE DESIRED MIL. EDUCATION NUMBER, ACCORDING TO 
THE ABOVE LIST (2 DIGITS PLEASE) e.g. "15" AND HIT "RETURN" KEY. 

TO FINISH (RETURN TO QUERY MENU OPTION) HIT 'RETURN" 

ENTER MIL. EDUCATION NUMBER (2 DIGITS): : 

Figure 4. 6 Example of Kenu for Military Education Level. 

By typing <13> in response to the menu in Figure 4.6 
(code for Command and Staff College level), a list of 
officers currently attending the Command and Staff College 
including serial number, name, corps and the year end's 
attended (see Figure 4.7) will be displayed. Before the list 
appears on the srceen, the system asks if the user wants 
the display on the screen or in hardcopy form. 
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EQUIVALENT WITH THE LEVEL OF 
2nd OFF. CONTINUING EDUCATION 



NAME RANK SCHOOL YEAR-END 



BUDIYONO 


LIEUTENANT 


COLONEL 


2nd OFF. 


CONTINUING EDU. 


1983 


MARTIN 


LIEUTENANT 


COLONEL 


A.G ADVANCE 


1983 


SUWITO 


LIEUTENANT 


COLONEL 


INFANTRY 


ADVANCE 


1983 


SULIS 


MAJOR 




INFANTRY 


ADVANCE 


1983 



Figure 4. 7 Example of Officers Attending Military Edu. Level 

The procedure to retrieve educational information is 
similar. The job information system tries to match the 
desires of an officer concerning eligible jobs placement 
and conversely a certain job for which many officers 
are eligible. In this prototype system a simple example is 
given to show a personnel officer trying to match an officer 
with a job description. 

Each job needs eligible officers to fill it. In a 
simple case the basic prerequisites for job placement 
are rank^ education and corps. Secondary considerations 
include other adjustment and past performance. 

Given a job description and prerequisites^ this 
prototype can help the user to match a certain job with the 
officers eligible by reason of rank^ education^ and corps 
consideration. Exact job descriptions and eligibility 
requirements are beyond the scope of this thesis. We are 
only suggesting how this system might expedite the job 
placement matching process. 
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After initial screening it is a simple matter for 
the system to output an officer's promotion history and .job 
history to make complete information available. An example 
follows : 

Start with the main menu and respond with the 
appropriate query selection; then choose or type <E> for 
jobs eligible for an officer (see Figure 4.8). By giving the 
input officer's serial number^ the screen will appear with 
two selections: job available for the same rank^ or after 

promotion (see Figure 4.9). After typing <s> the system 
responds by asking if the user needs the list on the 
screen or hardcopy. By typing <h> the computer gives all 
information on job placement after promotion correlated by 
rank^ education^ and corps (see Figure 4.10). 

QUERY MENU MAY 1986 

QUERY OPTIONS 

> PROVIDE MIL. EDUCATION LEVEL INFORMATION 

> PROVIDE ANY MIL. EDUCATION INFORMATION 

> PROVIDE RANK HISTORY INFORMATION 

> PROVIDE JOB HISTORY INFORMATION 

> PROVIDE JOB ELIGIBLE INFORMATION 

> PROVIDE OFFICER ELIGIBLE INFORMATION 

TYPE RETURN KEY, RETURN TO MENU 
SELECT AN ACTION BY LETTER =====> : : 

Figure 4. 8 Menu for Job Selection. 



A 

B 

C 

D 

E 

F 
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JOB AVAILABLE FOR THE SAME RANK or AFTER PROMOTION ? 



ENTER 's' FOR SAME RANK or 'p' PROMOTION 

Figure 4.9 The option for same rank or after promotion. 

JOB ELIGIBLE FOR : 

003333 SUWITO LIEUTENANT COLONEL MARINES 

JOB-ID DESCRIPTION STATION CITY 

003 ASS. LOGISTIC MARINE H. Q JAKARTA 

008 ASS. PERSONNEL D O D JAKARTA 

012 INSTRUCTOR NAVAL ACADEMY SURABAYA 

Figure 4. 10 Example of Jobs placement for an officer. 

Conversely^ given a job-id^ the system will respond 
with all eligible officers with the same consider ation given 
to education^ rank and corps. 

3. Sgecial_ Jgb_Discussion 

The system described above is Just a prototype, and 
further special work is needed. Job placement is a critical 
task because many factors must be considered, such as 
education, rank and corps. 

If possible, the needs of the organization should 
be synchronized with the individual's needs and desires, in 
order to make the officers more satisfied with their Jobs/ 
tasks. 

There is a further requirement for definitions 
of Job descriptions and eligibility requirements. This is 
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not an easy task because there are hundreds of jobs which 
must be carefully analyzed. More research is needed 
to accomplish this task before the system can be expanded. 

Because of the very complex consideration 
involved in personnel management, this system remains just 
a tool to get more reliable, up to date and timely 
information to the user. 
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V. CONCLUSION AND RECOMMENDATION 



The Naval Officers Personnel System is very complex. 
Managing it manually demands great effort^ is time 
consuming^ requires a large staff to manage the personnel 
function^ and is neither effective nor efficient in 
supporting decision making processes. Database processing 
can increase decision making productivity and provide 
relevant^ accurate^ and timely information. 

This thesis has focused on a proposed Personnel 
Database System for Indonesian Naval Officers. However this 
system can be used for other personnel applications with a 
little modif icat ion. The developed sample database presented 
here is based on relational normal form. Normal forms 
can be applied to decrease inefficiency of the relational 
database model in the system design process^ and also to 
decrease data redundancy. 

A sample implementation using dBase II is provided 
in Appendix A^ showing user interaction with the computer 
without necessarily knowing programming or database system 
management. 

With the latest microcomputer performance and 
capabilities in networking^ this system could be put on 
staff personnel desks and connected to each other in one 
headquarters building via a distributed network system^ 
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without requiring more space or restructuring office 
sett ing* 

A complete implementation of the system needs more data 
about job descriptions and prerequisites regarding 
education, rank, corps, sex and other considerations. 
Finally the system must evolve through continued use and 
feedback from personnel management users. 
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APPENDIX A 



USER MANUAL 

1. PURPOSE 

The purpose of this manual is to describe how to run the 
system. 

2. OBJECTIVES 

This system was designed to be user friendly^ expandable 
and maintainable. 

3. CONFIGURATION OF THE SYSTEM 

To run this system the following is necessary : 

a. IBM PC or compatible. 

c. IBM printer or compatible. 

d. 2 disk drives 

e. dBASE II diskette. 

f. dBASE II Project diskette. 

4. RECORD STRUCTURE. 

There are nine record types and fifteen table codes 
within this system. The records and table codes are: 

a. Officer identification record ( OFFICER. DBF ) 

b. Rank record (RANK. DBF) 

c. Military education record (MILEDU.DBF) 

d. General education record (CIVEDU.DBF) 

e. Occupation record (JOBOFF.DBF) 
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f. Occupation list ( JOBLIST. DBF ) 

g. Body characteristic record ( BQDYCHAR. DBF ) 

h. Corps code table ( CORPCODE. DBF ) 

i. Rank list ( RANKLIST. DBF ) 

j. Military education list < MEDULIST. DBF ) 

k. General education list ( CEDULIST. DBF ) 

l. Sex code table ( SEXCODE. DBF ) 

m. Religion code table ( RELIGION. DBF ) 

n. City code table ( CITYCODE. DBF ) 

o. Education result table (RESULT. DBF) 

p. Skin color table ( COLORSK. DBF ) 

q. Hair color table (TYPEHR.DBF) 

r. Eye color table < COLOREYE. DBF ) 

s. Blood table (BLOOD. DBF) 

t. Uniform size table ( UNIFORM. DBF ) 

u. Echelon- code table ( ECHELON. DBF ) 

V. Rank requirement for occupation (JOBRNK.DBF) 
w. Education requirement for occupation (JOBEDU.DBF) 

X. Corps requirement for occupation ( JOBCORP. DBF ) 

For a ore detailed description of the data records and 
bles, see Appendixes B. 

RUNNING THE SYSTEM 

a. Turn on the following devices, in order: 

1. IBM PC/compat ible system unit (switch on the 
right side ) . 



2 . 



The monitor (switch located on the front side). 



3. The printer (Okidata^ switch located on the 
right side ) . 

b. Insert Operating system diskette into drive and 

the system into drive B. 

c. Wait for the system to boot up^ answer the prompts 
by entering date and time or just hit <Enter> twice. 

d. When the screen format appears type <B:> to move 
drive B. 

e. Now type <dbase pers> 

f. When the system asks "enter your password please"^ 
simply type <pers> ; If you fail in this section 
because you type the wrong password (unauthorized 
access ) ^ then type <do pers>. 

g. Now you are in the OFFICER system which displays the 
main menu. The main menu will give you the choice 
of the following options 

A > ADD RECORD 

D > DELETE RECORD 

C > CHANGE RECORD 

P > PRINT 

Q > query INFORMATION 

R > RETURN TO DATABASE 

S > RETURN TO DOS 

Once you are at the main menu levels just type the desired 
option (A^D^C^P,Q^R,S). 
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APPENDIX B 



DATA DICTIONARY 

This data dictionary contains data elements of the 
database of the personnel system. There are 5 columns in the 
table : 

1. Data item. This column contains the data item as it 
is known to the user. 

2. Acronym. This column contains the unique name for 
the data item that will be used by programmers/ 
analysts. 

3. Type. This column contains the data item's type. "N" 
means numeric and "C" means character (alphabetic). 

4. Length. This column contains the number of 
characters used in each data item. 

5. Description. This column contains the description of 
the data item. 
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1. Officer identification OFFICER 



DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Serial # 


SERNO 


C 


6 


serial number^ primary key 


Kame 


NAME 


C 


25 


The name of personnel 


Corps 


CORPS 


C 


2 


Corps code ( see CORPCQDE 

table 01) 


Present rank 


RANKID 


N 


2 


Present rank (see RANKLIST 
table 02 ) 


Education 


EDUID 


N 


2 


Last military education 
< not available) 


Sex 


SEX 


N 


1 


Sex code (see SEXCQDE 

table 05) 


Birth date 


BIRTHDD 


N 


2 


DD (Day) 


Birth month 


BIRTHMM 


N 


2 


MM (Month) 


Birth year 


BIRTHYY 


N 


2 


YY (Year) 


Birth place 


BIRTHP 


C 


20 


City 


Religion 


RELIGION 


C 


1 


See RELIGION table 06 



2. Body character istic 



DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION. 



Serial # 


SERNO 


c 


6 


serial number^ primary key 


Weight 


WEIGHT 


N 


3 


Weight in kg 


Height 


HEIGHT 


N 


3 


Height in cm 


Skin color 


SKCOLOR 


N 


1 


Color of skin (see CQLORSK 
table 09) 


Hair type 


HRTYPE 


N 


1 


Type of hair (see TYPEHR 
table 10) 


Eye color 


EYCOLOR 


N 


1 


Color of eyes (see COLOREYE 
table 11) 


Blood type 


BLOOD 


N 


1 


Type of blood (see BLOOD 
table 12) 


Size of shoes 


SHOE 


N 


2 


In cm 


Size of hats 


HAT 


N 


2 


In cm 


Size of uniform 


UNIFORM 


N 


1 


3 sizes (see UNIFORM 
table 13) 



60 



3. Rank RANK ( I n tersection ) 



tl 

II 

It 

II 

II 

II 

II 

II 

II 

II 

II 

11 

11 

II 

II 


= _ = = = = = = = — 


II 

II 

II 

It 

II 

II 


II 

II 

It 

It 

It 

11 

It 


M 

II 

II 

II 

11 

11 

II 

II 

II 

11 

II 

II 

11 

II 

It 

It 

II 

II 

II 

11 

II 

!l 

II 

II 

II 

II 


DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Serial # 


SERNO 


C 


6 


Serial number^ primary key 


Rank ID 


RANKID 


C 


2 


Rank code ( see RANKLIST 

table 02) 


Rank date 


RANKDD 


C 


2 


Date of rank 


Rank month 


RANKMM 


C 


2 


Month of rank 


Rank Year 


RANKYY 


c 


4 


Year of rank 


Order Number 


RORNO 


c 


a 


Order Number with format 
Number ( 4 ) /Month < 2 ) / Year ( 2 ) 


Date Number 


RDATORNO 


N 


6 


DDMMYY 


4. Military Education 




MILEDU 


( Intersection ) 


DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Serial # 


SERNQ 


C 


6 


Serial number, primary key 


Rank 


MEDURANK 


N 


2 


Rank in education (see 
RANKLIST table 02) 


Education level 


MEDLEVID 


C 


2 


Level of education (see 
MEDLEY table 03) 


Education ID 


MEDUID 


C 


2 


Military education ( net 
available ) 


Date start 


MDDEDST 


N 


2 


Date education start 


Month start 


MMMEDST 


N 


2 


Month education start 


Year start 


MYYEDST 


N 


2 


Year education start 


Date end 


MDDEDED 


N 


2 


Date education end 


Month end 


MMMEDED 


N 


2 


Month education end 


Year end 


MYYEDED 


N 


2 


Year education end 


Duration of 
education 


MEDUDUR 


N 


3 


Duration of education 
( Weeks ) 


Place of 
education 


MEDUPLCE 


C 


3 


Place of education (City) 
(see CITYCODE table 07) 


Educ. Result 


MEDURSLT 


N 


1 


Result of education (see 
RESULT table 08) 


II 

11 

II 

II 

II 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 


II 

II 

II 

II 

II 

II 

II 

II 

II 

II 


II 

II 

II 

11 

II 

II 


II 

11 

II 

II 

II 

II 

II 


II 

II 

II 

11 

II 

II 

II 

11 

II 

II 

11 

II 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

11 

II 

II 
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5. General Education QIVEDjJ (Intersection) 

DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 



Serial # 


SERNO 


C 


6 


Serial number^ primary key 


RANK 


CEDURANK 


N 


2 


Rank in education ( see 
RANKLIST table 02 


Education Level 


CEDLEVID 


C 


2 


Educational level (see 

CEDLEV table 04) 


Education ID 


CEDUID 


C 


2 


General education 
(not available) 


Date start 


CDDEDST 


N 


2 


Date education start 


Month start 


CMMEDST 


N 


2 


Month edlucation start 


Year start 


CYYEDST 


N 


2 


Year education start 


Date end 


CDDEDED 


N 


2 


Date education end 


Month end 


CMMEDED 


N 


2 


Month education end 


Year end 


CYYEDED 


N 


2 


Year education end 


Duration of 
education 


CEDUDUR 


N 


3 


Duration of education 
( Weeks ) 


Place education 


CEDUPLCE 


C 


3 


Place of education 
(see CITYCODE table 07) 


Educ. Result 
6. Occupation 


CEDURSLT 


N 


1 Result oJE education (see 

RESULT table ) 

JOBOFF ( Intersection ) 


DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


[ DESCRIPTION 


Serial # 


SERNO 


c 


6 


Serial number, primary key 


Job ID 


JOBID 


c 


3 


Job code ( see JOBLIST 
table 15) 


Rank 


JOBRANK 


N 


2 


Job rank ( see RANKLIST 
table 02 ) 


Job date 


JOBDD 


C 


2 


Date of job 


Job month 


JOBMM 


C 


2 


Month Job 


Job Year 


JOBYY 


C 


4 


Year Job 


Job Echelon 


JOBECH 


N 


2 


Job of echelon (see ECHELQl 
table 14) 


Order Number 


JORNO 


C 


a 


Order Number with format 
Number ( 4 ) /Month ( 2 ) /Year ( 2 


Date Number 


JDATORNO 


N 


6 


DDMMYY 
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7. Rank requirement for occupation JQBRNK (Intersection) 



DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Job ID 


JOBID 


C 


3 Job 


code (see JOBLIST 
table 15) 


Job rank 


JOBRK 


c 


2 Rank 


requirement ( see 
RANKLIST table 02 ) 


8. Education 


requirement 


for occupation JOBEDU (Intersection) 


DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Job ID 


JOBID 


C 


3 Job 


code (see JOBLIST 
table 15) 


Education .req 


JOBED 


C 


2 Mil. education requirement 

( not available) 



9. Corps requirement for occupation JQBCQRP (Intersection) 



DATA 


ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Job 


ID 


JOBID 


■ C 


3 Job 


code (see JOBLIST 












table 15) 


Job 


corp 


JOBCO 


C 


2 Corp 


requirement (see 



CQRPCODE table 01) 
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APPENDIX C 



SAMPLES OF TABLE CODE 



01. Table of 


Corps Code 




CORPCODE 




DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Corps ID 


CORPS 


c 


2 


Corps code 


Corps desc 


CORPSDES 


c 


10 


Corps name 


01 Line 

02 Engineer 

03 Electronics 

04 Marines 




05 Administration 

06 Specialist 

07 Health 

08 Woman 


02* Table of 


Ranks 




RANKLIST 




DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Rank ID 


RANKID 


c 


2 


Rank code 


Description 


RANKDES 


c 


20 


Rank title 


Education 

requirement 


RKEDUREQ 


c 


2 


Education require- 
ment (see RNKEDURQ 
table ) 


Echelon 

requirement 


RKECHREQ 


c 


2 


Echelon requi remen 
(see RNKECHRQ 
table ) 



11 Admiral / General 

12 Vice Admiral / Lieutenant General 

13 Rear Admiral / Major General 

14 First Admiral / Brigadier General 

15 Colonel 

16 Lieutenant Colonel 

17 Major 



10 Captain 

19 First Lieutenant 

20 Second Lieutenant 

21 Candidate Officer 
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03. Military Education Level MEDLEV 

DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 



Education level MEDLEVID C 2 

Description MEDLEDES C 30 



Education level 
Description 



11 National Defence 

12 Joint Command & Staff College 

13 Command and Staff College 

14 Staff College 

15 2nd Off. Continuing Education 



16 1st Off. Continuing Edu. 

17 Naval Academy 

la Basic Officer School 
19 Candidate Officer School 



04. General Education Level CEDLEV 



DATA ITEM ACRONYM TYPE LENGTH 



DESCRIPTION 



Edication level CEDLEVEL C 2 

Description CEDUDES C 30 



Education level 
Level of Education 



11 University Level 13 Senior High School Level 

12 Academy Level 14 Junior High School Level 

15 Elementary School Level 



05. Table of Religion Code RELIGION 

DATA ITEM ACRONYM TYPE LENGTH DESCRIPTION 



Religion 

Description 



RELCODE N 1 

RELDES C 10 



Religion code 
Name of Religion 



1 Moslem 

2 Catholic 

3 Protestant 



4 Budhist 

5 Hindu 

6 Other 
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06. Table of 
DATA ITEM 


Sex Code 
ACRONYM 


TYPE 


SEXCODE 

LENGTH 


DESCRIPTION 


Sex 


SEX 


N 


1 


Sex Code 


Sex 


SEXDES 


C 


6 


Sex 


1 Male 






2 Female 





07. Table of 


City code 


CITYCODE 




DATA ITEM 


ACRONYM 


TYPE LENGTH 


DESCRIPTION 



City code CITYCODE N 

Description CITYDES C 


3 

20 


City code 
The name of City 


101 


Jakarta 


201 


Tokyo 


102 


Baii.dung 


201 


Bangkok 


103 


Bogor 


203 


Singapore 


104 


Semarang 


203 


Manila 


105 


Jogyakarta 


214 


Paris 


106 


Surakarta 


215 


London 


107 


Magelang 


301 


San Francisco 


108 


Surabaya 


302 


San Diego 


109 


Malang 


303 


Monterey 


110 


Madiun 


304 


Washington DC 


111 


Medan 


305 


Quantico 


112 


U Jungpandang 


306 


Newport 


113 


Denpasar 


307 


Lackland 




etc. 




etc. 



08. Table of 


Education Result 


RESULT 






DATA ITEM 


ACRONYM TYPE 


LENGTH 


DESCRIPTION 


Result code 


RESCODE N 


1 


Education 


result code 


Description 


RESDES C 


25 


Result of 


education 


1 Graduate 

2 Certificate 


of Completion 


3 Incomplete 
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09. Table of Skin Color CQLORSK 



DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Skin code 


SKINCQDE 


N 


1 


Skin color code 


Description 


SKINDES 


c 


6 


Skin color description 












1 Brown 






3 White 


2 Black 


II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 


II 

II 

II 

II 

II 


4 Yellow 


10. Table of Hair Type 


II 

II 

II 

II 

II 


TYPEHR 


II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 


DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Hair code 


HAIRCODE 


N 


1 


Hair code 


Description 


HAIRSDES 


C 


15 


Hair description 


1 Curly 






3 Straight stiff 


2 Wavy 






4 Straight limp 



11. Table of 


Eye Color 




COLOREYE 




DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Eye code 


EYECODE 


N 


1 


Eye color code 


Description 


EYEDES 


C 


5 


Eye color 



1 Black 3 Brown 

2 Blue 
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12. Table of Blood Types §LQQQ 



DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Blood code 


BLOODCOD 


N 


1 




Blood 


code 


Description 


BLOODDES 


C 


2 




Blood 


description 


1 A + 






5 


AB + 






2 A- 






6 


AB- 






3 B + 






7 


0 






4 B- 






a 


0 - 







13. Table of Uniform Size 




UNIFORM 






DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Uniform code 
Description 


UNICODE 

UNIDES 


N 

C 


1 

6 




Uniform 

Uniform 


code 

descr ipt ion 


1 Small 

2 Medium 






3 Large 






14. Table of Echelon Code 




ECHELON 






DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Echelon code 


ECHCODE 


C 


2 




Echelon 


code 


Description 


ECHDES 


C 


11 




Echelon 


descr iption 


11 Echelon 1-A 

12 Echelon 1-B 

13 Echelon 1-C 

14 Echelon 1-D 

15 Echelon 1-E 

16 Echelon 1-F 

17 Echelon 1-G 

18 Echelon 1-H 

21 Echelon 2-A 

22 Echelon 2-B 






23 

24 

25 

26 

31 

32 

33 

34 

35 
41 


Echelon 2-C 
Echelon 2-D 
Echelon 2-E 
Echelon 2-F 
Echelon 3-A 
Echelon 3-B 
Echelon 3-C 
Echelon 3-D 
Echelon 3-E 
Functional 
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15. Occupation list 



DATA ITEM 


ACRONYM 


TYPE 


LENGTH 


DESCRIPTION 


Job ID 


JOBID 


C 


3 


Job code 


Job Descript 


JOBDES 


C 


30 


Name of Job 


Echelon 


ECHELON 


C 


2 


Job echelon (see 
ECHELON table 14 ) 


Station 


JOBSTAT 


C 


2 


Station 
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APPENDIX D 
EXAMPLES OF PROGRAM 



**************************************************************** 



* PROGRAM NAME : PERS. PRG 

* AUTHOR : DJOKO M. ARIYADI 

* DATE WRITTEN : MAY, 1986 

* PURPOSE : THIS IS THE MAIN MENU- PROGRAM FOR THE 

* OFFICER SYSTEM 

* PROGRAMS CALLED BY THIS PROGRAM ARE : 

* ADDMENU. PRG DELMENU. PRG 

* CHGMENU. PRG PRNMENU. PRG 

* QUEMENU. PRG 

* NO FILES DBF ARE USED. 



♦ 



SET COLOR TO 30. 14 
SET TALK OFF 
SET CONSOLE ON 
ERASE 

STORE ' ' TO PASS 

0 3.22 SAY ' WELCOME TO THE NAVY OFFICER PERSONNEL SYSTEM, ' 

0 12. 22 SAY ' ENTER YOUR PASSWORD PLEASE 

SET CONSOLE OFF 

ACCEPT TO PASS 

STORE !(PASS) TO PASS 

SET CONSOLE ON 

IF TRIM(PASS) <> 'PERS' 

0 15.10 SAY 'YOU TYPED THE WRONG PASSWORD. TRY AGAIN FROM THE; 
BEGINNING' 

0 17.25 SAY 'QUIT TO DBASE II il' 

CANCEL 

ENDIF 

RELEASE PASS 



DO WHILE T 

STORE ” TO ANSWER 
SET TALK OFF 
ERASE 

9 If It 

0 2. 1 SAY "OFFICER MAIN MENU 

MAY 1986" 

SET COLOR TO 4 

9 »= = - = = = = = = = - = = = = - = = = = = = = = = = -- =- = = =:--zz = = = = = ^ = = = = = = - = 



9 It It 

9 H It 

? " A > ADD RECORD" 
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o 



? " 

9 » » 

? ” 

9 w w 

9 w 

9 « M 

? ” 

9 n n 

? " 

9 ff fi 

? ” 

9 n n 

9 n ft 

7”========== 



ft 



D > DELETE RECORD^ 

C > CHANGE RECORD" 

P > PRINT" 

Q > QUERY INFORMATION " 

R > RETURN TO DATABASE" 

S > RETURN TO DOS" 



(i 23, 16 SAY "SELECT AN ACTION BY LETTER. = = = = = = = > « GET ANSWER 
PICTURE" I " 

0 23, 16 SAY CHR (7) 

READ 
DO --CASE 

CASE ANSWER = 'A' 

DO ADDMENU 
CASE ANSWER = 'D' 

DO DELMENU 
CASE ANSWER = 'C' 

DO CHGMENU 
CASE ANSWER = 'P' 

DO PRNMENU 
CASE ANSWER = 'Q' 

DO QUEMENU 
CASE ANSWER = 'R' 

CANCEL 

CASE ANSWER = 'S' 

DO QUIT 
OTHERWISE 
DO ERROR 
ENDCASE 
ENDDO 
ERASE 
RETURN 
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* PROGRAM NAME : ADDMENU.PRG 

* AUTHOR : DJOKO M. ARIYADI 

* DATE WRITTEN : MAY, 1986 

* PURPOSE : TO PRESENT THE ADDITION MENU 

* PROGRAMS CALLED BY THIS PROGRAM ARE : 

-e ADDOFF. PRG ADDRANK. PRG ADDCORPS. PRG ADDRCODL. PRL. ♦ 

* ADDJOB. PRG ADDJCODE. PRG ADDEDU. PRG ADDECODE. PRG * 

* LOCAL VARIABLE USED : ANSWER 

* NO FILES DBF ARE USED. 

CLEAR 

ERASE 

DO WHILE T 

STORE " " TO ANSWER 

SET TALK OFF 
ERASE 

9 « n 

0 2, i SAY »» ADDITION MENU ; 

MAY ISSS^ 
set color to 4 

9 «= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = * 



9 rt ft 
? " 

9 H f» 

9 ft ft 

ft ft 

? " 0 

ADDITION** 

9 ft ft 

? ** c 

CODE ADDITION ** 

9 ft ft 

? ** E 

ADDITION *» 

9 « *t 

? ft p 

CODE ADDITION** 

9 ft ft 

9 ft ft 

9 ft ft 

? ** 

7f»= = = = = = = = = = 



RECORD ADDITION OPTION** 

--> OFFICER ADDITION K --> JOB; 

--> CORPS ADDITION L --> JOB; 

--> EDUCATION ADDITION R --> RANK; 

--> EDUCATION CODE ADDITION S RANK; 

TYPE RETURN KEY, RETURN TO MENU** 



ft 



0 23,16 SAY **SELECT AN ACTION BY LETTER .= = = = = = = > ** GET ANSWER; 
PICTURE ** I ** 

0 23, 16 SAY CHR (7) 

READ 
DO CASE 

CASE ANSWER = ' ' 
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RETURN 



CASE 


ANSWER = 


'O' 


DO 


ADDOFF 




CASE 


ANSWER = 


'C' 


DO 


ADDCORPS 




CASE 


ANSWER = 


'E' 


DO 


ADDEDU 




CASE 


ANSWER = 


'F' 


DO 


ADDCEDU 




CASE 


ANSWER = 


'K' 


DO 


ADDJOB 




CASE 


ANSWER = 


'L' 


DO 


ADDCJOB 




CASE 


ANSWER = 


' R' 


DO 


ADDRANK 




CASE 


ANSWER = 


'S' 


DO 


ADDCRANK 





OTHERWISE 
DO ERROR 



ENDCASE 

ENDDQ 

ERASE 

RETURN,. 
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* PROGRAM NAME ; DELMENU. PRG 

* AUTHOR : DJOKO M. ARIYADI 

* DATE WRITTEN : MAY, 1986 

* PURPOSE : TO PRESENT THE DELETE MENU 

* PROGRAMS CALLED BY THIS PROGRAM ARE : 

* DELOFF. PRG DELRANK. PRG DELCCRPS. PRG DELRCODE. PRG * 

* 

* DELJOB. PRG DELEDU. PRG DELCJOB. PRG DELECODE. PRG 

* LOCAL VARIABLE USED : ANSWER * 

* NO FILES DBF ARE USED. 

CLEAR 

ERASE 

DO WHILE T 

STORE ” TO ANSWER 
SET TALK OFF 
ERASE 
2 n n 

0 2, 1 SAY "DELETION MENU ; 

MAY 1986" 

SET COLOR TO 4 



9 


n - 






. ff 










# 


9 


If 


ff 
















9 


ff 










DELETE 


OPTION " 






9 


« 


ff 
















9 


n 


ff 
















? 


n 


ff 
















9 


n 




Q --> 


DELETE 


OFFICER 




K -- 


> 


DELETE ; 


JOB 


n 


















9 


If 


ff 
















9 


IT 




c 


DELETE 


CORPS 




L -- 


> 


DELETE : 


JOB 


CODE" 
















9 


II 


ff 
















9 






E --> 


DELETE 


EDUCATION 


R -- 


> 


DELETE ; 


RANK 


« 


















9 


ff 


ff 
















9 


fi 




F --> 


DELETE 


EDUCATION CODE 


S — 


> 


DELETE; 


RANK 


CODE" 
















9 


tl 


ff 
















9 


ff 


ff 
















9 


n 


ff 
















9 


n 








TYPE 


RETURN 


KEY, RETURN 




TO MENU" 


9 


n 



















n 



0 22,16 SAY "SELECT AN ACTION BY LETTER .======= > " GET ANSWER 

PICTURE "1" 



0 23, 16 SAY CHR (7 ) 

READ 

DO CASE 
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CASE ANSWER = ' ' 

RETURN 



CASE 


ANSWER = 


^0' 


DO 


DELOFF 




CASE 


ANSWER = 


'C' 


DO 


DELCORPS 




CASE 


A.NSWER = 


'E' 


DO 


DELEDU 




CASE 


ANSWER = 


'F' 


DO 


DELCEDU 




CASE 


ANSWER = 


'K' 


DO 


DELJOB 




CASE 


ANSWER = 


'L' 


DO 


DELCJOB 




CASE 


ANSWER = 


'R' 


DO 


DELRANK 




CASE 


ANSWER = 


'S' 


DO 


DELCRANK 





OTHERWISE 
DO ERROR 
ENDCASE 
ENDDO 
ERASE 
RETURN 
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♦ PROGRAM NAME : CHGMENU. PRG 

♦ AUTHOR : DJOKO M. ARIYADI 

♦ DATE WRITTEN : MAY, 1986 

♦ PURPOSE ; TO PRESENT THE CHANGE MENU 

♦ PROGRAMS CALLED BY THIS PROGRAM ARE : 

♦ CHGOFF. PRG CHGRANK. PRG CHGCORPS. PRG CHGRCODE. PRG 

♦ CHGJOB. PRG CHGJCODE. PRG CHGECODE. PRG CHGEDU. PRG 

LOCAL VARIABLE USED : ANSWER 

♦ NO FILES DBF ARE USED. 

CLEAR 

ERASE 

DO WHILE T 

STORE " TO ANSWER 
SET TALK OFF 
ERASE 

9 rf Tf 

0 2, 1 SAY "CHANGE MENU 

MAY 1986" 

SET COLOR TO 4 



RECORD CHANGE OPTION" 



9 T» n 

? " 

JOB" 

9 rt Tf 
? " 

JOB CODE" 

9 w « 

9 n 

RANK " 

9 r» ff 
? " 

RANK CODE " 

9 ff ff 



O --> CHANGE 
C --> CHANGE 
E CHANGE 
F --> CHANGE 



OFFICER 
CORPS 
EDUCATION 
EDUCATION CODE 



K --> CHANGE; 
L --> CHANGE; 
R -’> CHANGE ; 
S — > CHANGE; 



TYPE RETURN KEY, RETURN TO MENU" 



0 23,16 SAY "SELECT AN ACTION BY LETTER .= = = = = == > " GET ANLWE 

PICTURE "1" 



0 23, 16 SAY CHR (7) 

READ 

DO CASE 
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CASE ANSWER = 
RETURN 



CASE 


ANSWER = 


'Q' 


DO 


CHGOFF 




CASE 


ANSWER = 


'C' 


DO 


CHGCORPS 




CASE 


ANSWER = 


'E' 


DO 


CHGEDU 




CASE 


ANSWER = 


' F' 


DO 


CHGCEDU 




CASE 


ANSWER = 


'K ' 


DO 


CHGJOB 




CASE 


ANSWER = 


' L' 


DO 


CHGCJOB 




CASE 


ANSWER = 


'R' 


DO 


CHGRANK 




CASE 


ANSWER = 


'S' 


DO 


CHGCRANK 





OTHERWISE 
DO ERROR 
ENDCASE 
ENDDO 
ERASE .. 

RETURN 
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^ PROGRAM NAME QUEMENU. PRG 

♦ AUTHOR : DJOKO M. ARIYADI 

♦ DATE WRITTEN : MAY, 198G 

^ PURPOSE : TO PROVIDE QUERY MENU SELECTION 

♦ PROGRAMS CALLED BY THIS PROGRAM ARE : 

♦ GUERYA, QUERYB, QUERYC, QUERYD, QUERYE. PRG 

♦ LOCAL VARIABLE USED : ANSWER 

♦ NO FILES DBF ARE USED. 

CLEAR 

ERASE 

DO WHILE T 

STORE " TO ANSWER 
SET TALK OFF 
ERASE 

9 H H 

(3 2, 1 SAY ”QUERY MENU 

MAY 1986” 

SET COLOR TO 4 



9 


if 






QUERY OPTIONS " 


9 


H 


ft 










9 


f1 


H 










9 


H 


»» 










9 


»1 


A 


> 


PROVIDE 


MIL. 


EDUCATION LEVEL; 


INFORMAT 


ION" 










9 


?f 


ft 










9 


ff 


B 


> 


PROVIDE 


ANY 


MIL. EDUCATION; 


INFORMATION" 










9 


♦f 


ff 










9 


FT 


C 


> 


PROVIDE 


RANK 


HISTORY INFRMATIljN " 


9 


M 


ff 










9 


f1 


D 


> 


PROVIDE 


JOB 


HISTORY INFORMATION" 


9 


n 


ft 










9 


n 


E 


> 


PROVIDE 


JOB 


ELIGIBLE INFORMATION " 


9 


n 


ff 










9 


« 


ff 










9 








TYPE RETURN 


KEY, RETURN TO MENU" 


9 


ft 




ff 








0 


23 , 16 SAY "SELECT 


AN ACTION BY 


LETTER. =======> " GET ANUWE 


PICTURE 


H t H 










0 


23, 


16 SAY CHR (7) 











READ 
DO CASE 

CASE ANSWER = ' ' 

RETURN 
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CASE ANSWER 
DO QUERYA 
CASE ANSWER 
DO QUERYB 
CASE ANSWER 
DO QUERYC 
CASE ANSWER 
DQ QUERYD 
CASE ANSWER 
DQ QUERYE 
OTHERWISE 
DQ ERROR 
EMDCASE 
ENDDQ 
ERASE 
RETURN 



' A ' 
' B ' 
'C ' 
' D' 
'E' 
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* PROGRAM NAME s PRNMENU. PRG 

* AUTHOR : DJOKG M. ARIYADI 

* DATE WRITTEN : MAY, 1936 

* PURPOSE : TO PROVIDE PRINT MENU SELECTION 

» PROGRAMS CALLED BY THIS PROGRAM ARE : 

* PROFMENU, PRRKMENU, PRJOMENU. PRG 

* LOCAL VARIABLE USED t ANSWER 

* NO FILES DBF ARE USED. 

ERASE 

DO WHILE T 

STORE " ” TO ANSWER 

SET TALK OFF 
ERASE 

« M 

0 2, 1 SAY "PRINT MENU 

MAY 1986" 

SET COLOR TO 4 



9 « 

on.. tt 

^ n' *rt 

on n 

on »t 

on n 

? " 

on n 

OH w 

? " 

on It 

on H 

O H 

OH H 

on It 



PRINT MENU OPTIONS " 

P > OFFICER RECORD" 

R > RANK CODE [RECORD" 

J > JOB CODE REC.ORD" 



o 

? " 



TYPE RETURN KEY, RETURN TO MENU" 



0 23,16 SAY "SELECT AN ACTION BY LETTER .======= > " GET ANSWER 

PICTURE "!" 

0 23, 16 SAY CHR (7) 

READ 
DO CASE 

CASE ANSWER = ' ' 

RETURN* 

CASE ANSWER = 'P' 

DO PROFMENU 
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CASE ANSWER = 'R' 

DO PRRKNENU 
CASE ANSWER = 'J' 

DO PRJOriENU 
OTHERWISE 
DC ERROR 
ENDCASE 
ENDDO 
ERASE 
RETURN 
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♦ PROGRAM NAME : PRQFMENU. PRG 

AUTHOR : DJOKO M. ARIYADI 

^ DATE WRITTEN : MAY , 1986 

» PURPOSE ; TO PROVIDE OFFICER PRINT MENU PROGRAM 

PROGRAMS CALLED BY THIS PROGRAM ARE : 

♦ PERSNAME. FRM, PERSERNQ. FRM, PERSRANK. FRM, PERSRKSN. FRM 

» LOCAL VARIABLE USED : ANSWER, ANSW 

♦ NO FILES DBF ARE USED. 

CLEAR 

SET TALK OFF 
SET COLOR TO 20, 5 
DO WHILE T 
ERASE 
? ' ' 

G 2, 1 SAY ' PRINT OFFICERS OPTION 

MAY 1986' 

SET COLOR TO 4 





» 


0 


PRINT 


OFFICERS LIST OPTION 




f 


0 










/ 


0 










t 




N > 


LIST 


BY NAME ' 


ry 


f 


0 








9 


f 




R > 


LIST 


BY RANK' 


9 


t 


0 








9 


# 




S > 


LIST 


BY SERIAL # ' 


9 


0 


0 








9 


0 


0 










0 


0 










0 


0 








9 


0 


0 








9 


0 




TYPE RETURN 


KEY, 


RETURN TO MENU 


SET 


COLOR TO 4 









TO ANSWER 



STORE ' ' 

G 23, 16 SAY 
ANSWER PICTURE ” 1 " 

READ 
DO CASE 

CASE ANSWER = 
RETURN 

CASE ANSWER = 
DO PROFNAME 
CASE ANSWER = 
DO PROFRANK 
CASE ANSWER = 
DO PROFSERN 



SELECT AN ACTION BY LETTER 






(iE^r 



N ' 



R ' 



S' 
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OTHERWISE 
DO ERROR 
ENDCASE 



ENDDQ 

ERASE 

RETURN 






♦ PROGRAM NAME : PRQFRANK.PRG 

» AUTHOR : DJQKO M. ARIYADI 

DATE WRITTEN : MAY , 1986 

^ PURPOSE : TO PRINT OFFICER'S LISTING BY RANK 

^ PROGRAMS CALLED BY THIS PROGRAM ARE : 

♦ PERSRANK. FRM 
LOCAL VARIABLE USED : Q:PRS 

DBF FILE USED ARE : OFFICER, RANKLIST 

ERASE 

CLEAR 

SET TALK OFF 
SET COLOR TO 20, 5 
STORE T TO Q:FLAGi 
DO WHILE Q:FLAG1 
USE OFFICER 

@ 12, 20 SAY " BE PATIENT PLEASE, STILL PROCESSING’’ 

INDEX ON RANKID TO TFl 

SELECT PRIMARY 
USE OFFICER INDEX TFl 
SELECT SECONDARY 
USE RANKLIST 

JOIN TO QFFRANK FOR P . RANKI D = S. R ANKI D FIELDS P . SERNO, fL N A ML , 
RANKDES 

USE QFFRANK 
ERASE 

STORE T TO Q:FLAG2 
DO WHILE Q:FLAG2 
ERASE 

0 8,15 SAY 'DO YOU WANT THIS LIST ON THE SCREEN or: 
PRINTER?' 

ACCEPT " ENTER 's' for SCREEN or 'h’ tor 

HARDCOPY” to Q:PRS 
READ 
DO CASE 

CASE Q:PRS = 's' 

ERASE 

REPORT FORM PERSRANK 
STORE F TO Q:FLAG1 
STORE F TO Q:FLAG2 
CASE Q:PRS = 'h' 

ERASE 

REPORT FORM PERSRANK TO PRINT 
STORE F TO Q:FLAG1 
STORE F TO Q:FLAG2 
OTHERWISE 

STORE F TO QrFLAGl 
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DO ERROR 
ERASE 
LOOP 
ENDCASE 
ENDDO 

SET COLOR TO 4 

n ff 

? ^ TYPE ANY KEY TO CONTINUE " 

SET CONSOLE OFF 

WAIT 

SET CONSOLE ON 

ENDDO 

RETURN 
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* PROGRAM NAME : PROFNAME. PRG 

* AUTHOR : DJGKQ M. ARIYADI 

* DATE WRITTEN : MAY , 1986 

* PURPOSE : TO PRINT OFFICER'S LISTING BY NAME 

* PROGRAMS CALLED BY THIS PROGRAM ARE : 

* PERSNAME. FRM 

* LOCAL VARIABLE USED : QsPRS 

* DBF FILE USED ARE : OFFICER, RANKLIST 

ERASE 

CLEAR 

SET TALK OFF 
SET COLOR TC 20, 5 
STORE T TO Q:FLAG1 
DO WHILE Q:FLAG1 
USE OFFICER 

0 12,20 SAY BE PATIENT PLEASE, STILL PROCESSING" 

INDEX ON NAME TO TFl 

SELECT PRIMARY 
USE OFFICER INDEX TFl 
SELECT SECONDARY 
USE RANKLIST 

JOIN TO OFFRANK FOR P . RANK I D =S. RANK I D FIELDS P. SERNQ, P. NAME 
RANKDES 

USE OFFRANK 
ERASE 

STORE T TO Q:FLAG2 
DO WHILE Q:FLAG2 
ERASE 

0 8,15 SAY 'DO YOU WANT THIS LIST ON THE SCREEN or PKJNl’L 

»t n 

ACCEPT " ENTER 's' tor SCREEN or 'h' fo 

HARDCOPY" to Q:PRS 
READ 
DO CASE 

CASE Q:PRS = 's' 

ERASE 

REPORT FORM PERSNAME 
STORE F TO Q:FLAG1 
STORE F TO Q:FLAG2 
CASE Q:PRS = 'h' 

ERASE 

REPORT FORM PERSNAME TO PRINT 
STORE F TO QiFLAGl 
STORE F TO Q:FLAG2 
OTHERWISE 

STORE F TO Q:FLAG1 
DO ERROR 
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ERASE 

LOOP 

EHDCASE 

ENDDQ 

SET COLOR TO 4 

H 

? ^ TYPE AMY KEY TO COMTIMUE ” 

SET CONSOLE OFF 

WAIT 

SET CONSOLE ON 

ENDDQ 

RETURN 
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* PROGRAM NAME : PROFSERN. PRG 

* AUTHOR ; DJOKO M. ARIYADI 

» DATE WRITTEN : MAY, 1986 

* PURPOSE : TO PRINT OFFICER'S LISTING EY SERIAL NUMBER - 

» PROGRAMS CALLED BY THIS PROGRAM ARE ; 

* PERSERNO. FRM 

» LOCAL VARIABLE USED : Q:PRS 

* DBF FILE USED ARE : OFFICER, RANKLIST 

ERASE 

CLEAR 

SET TALK OFF 
ET COLOR TO 20, 5 
TORE T TO Q:FLAG1 
DO WHILE Q:FLAG1 
USE OFFICER 

Q 12,20 SAY " BE PATIENT PLEASE, STILL PROCESSING'* 

INDEX ON SERNO TO TFl 

SELECT PRIMARY 
USE- OFFICER INDEX TFl 
SELECT SECONDARY 
USE RANKLIST 

JOIN TO OFFRANK FOR P. RANKI D=S. RANKID FIELDS P . SERNO, P . M A ME 
RANKDES 

USE OFFRANK 
ERASE 

STORE T TO Q:FLAG2 
DO WHILE Q:FLAG2 
ERASE 



& a, 15 SAY 

n M 


'DO YOU WANT THIS LIST 


ON 


THE 


SCREEN or 


PN-INTE 


ACCEPT 


ENTER 


's' 


for 


SCREEN or 


' n ' to 



HARDCOPY" to Q:PRS 
READ 
DO CASE 

CASE Q:PRS = 's' 

ERASE 

REPORT FORM PERSERNO 
STORE F TO Q:FLAG1 
STORE F TO Q:FLAG2 
CASE Q:PRS = 'h' 

ERASE 

REPORT FORM PERSERNO TO PRINT 
STORE F TO Q-.FLAGl 
STORE F TO Q:FLAG2 
OTHERWISE 

STORE F TO Q:FLAG1 



aa 



DO ERROR 
ERASE 
LOOP 
ENDCASE 
ENDDO 

SET COLOR TO 4 

9 tt n 

? " TYPE ANY KEY TO CONTINUE 

SET CONSOLE OFF 

WAIT 

SET CONSOLE ON 

ENDDO 

RETURN 






* PROGRAM NAME : DELOFF. PRG 

» AUTHOR ; DJOKO M. ARIYADI 

» DATE WRITTEN : MAY, 1986 

* PURPOSE ; TO DELETE OFFICER RECORD 

* PROGRAMS CALLED BY THIS PROGRAM ARE 

» DBF FILES USED ARE : OFFICER 



SET TALK OFF 
SET CONSOLE ON 
ERASE 

STORE t TO flag 
DO WHILE t 
SET COLOR TO 30, 14 



USE OFFICER 

INDEX ON SERNO TO DELOFF 



USE OFFICER INDEX DELOFF 



STORE ' 
ERASE 

0 5, 23 SAY 
0 10, 23 SAY 
0* 12, 23 SAY 
0 16, 23 SAY 
READ 

if msn - ' 



' TO msn 

TO DELETE OFFICER RECORD' 

ENTER SERIAL NUMBER ' GET msn PICTURE 
e. g ; 005001; 006005; 007001' 

ENTER A BLANK, RETURN TO DELETE MENU 



RELEASE msn, flag 
RETURN 






endif 
FIND &msn 
IF # = 0 

SET COLOR TO 112, 140 

0 12,20 SAY 'SERIAL NUMBER NOT ON THIS PERS RECORDS 
0 13, 40 SAY CHR(7) 

SET TALK OFF 
STORE 1 TO V 
DO WHILE v<200 

STORE v-^1 TO V 
ENDDO WHILE v<250 
SET COLOR TO 30, 14 
LOOP 

ENDIF # = 0 
ERASE 



STORE ' 

STORE ' ' to mcorp 

STORE 0 to mrankid 
STORE ' ' to meduid 

STORE ' ' to msex 

STORE ' ' to mbirthdd 

STORE ' ' to mbirthmm 



to mname 
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to mbirthyy 



to mbirthp 



STORE ' 

STORE ' 

STORE ' ' to mreiigion 



STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 



serno to msn 
name to mname 
corps to mcorps 
rankid to mrankid 
eduid to meduid 
sex to msex 
birthdd to mbirthdd 
birthmm to mbirthmm 
birthyy to mbirthyy 
birthp to mbirthp 
religion to mreiigion 



0 


4, 20 


say ' 


THIS 


IS THE DATA 


YOU WANT 


TO DELETE 


0 


7, 23 


SAY ' 


SERIAL 


# 


' + msn 




0 


8, 23 


SAY ' 


NAME 




'GET 


mname 


0 


9, 23 


SAY ' 


CORPS 




'GET 


mcorps 


0 


10, 23 


SAY 


' RANK 




' GET 


mrankid 


0 


11, 23 


SAY 


'MIL. 


EDUCATION 


' GET 


meduid 




12, 23 


SAY 


' SEX 




'GET 


msex 


0 


13, 23 


SAY 


' BIRTH 


DAY 


'GET 


mbirthdd 


0 


14, 23 


SAY 


' BIRTH 


MONTH 


'GET 


mbirthmm 


0 


15, 23 


SAY 


' BIRTH 


YEAR 


'GET 


mbirthyy 


0 


16, 23 


SAY 


' BIRTH 


PLACE 


'GET 


mbirthp 


0 


17, 23 


SAY 


'RELIGION 


'GET 


mr e 1 ig ion 


S' 


TORE ' 


' TO 


answer 






0 


19, 20 


SAY 


' ARE 


YOU SURE TO 


DELETE T 


HIS DATA ? 



21, 16 SAY ' TYPE y FOR yes OR n RETURN TO SERIAL # 

OPTION' 

y 21, 65 GET answer 

READ 

DO Case 

CASE (answer) = 'y' 

DELETE 

PACK 

CLEAR 

STORE t TO flag 
CASE (answer) = 'n' 

STORE t TO flag 
OTHERWISE 
DO ERROR 
ENDCASE 
ENDDQ WHILE t 
USE OFFICER 

INDEX ON SERNO TO DELOFF 

ERASE 

RETURN 
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» PROGRAM NAME : CHGOFF. PRG 

«• AUTHOR : DJOKO M. ARIYAD 

* DATE WRITTEN ; MAY, 1986 

» PURPOSE : TO CHANGE OFFICER RECORDS 

* PROGRAMS CALLED BY THIS PROGRAM ARE : 

» DBF FILES USED ARE ; OFFICER 






SET TALK OFF 
SET CONSOLE ON 
ERASE 



USE OFFICER 

INDEX ON SERNO TO CHGGFF 
USE OFFICER INDEX CHGOFF 



SAY 

SAY 



STORE t TO flag 
DO WHILE t 

SET COLOR TO 30, 14 
STORE ' 

ERASE 

(3 5, 23 SAY 
0 10, 23 SAY 
0 12, 23 
0 16, 23 
READ 

IF msn = 

RELEASE 
RETURN 
ENDIF 
FIND &msn 
IF # = 0 

SET COLOR TO 
0 12, 20 SAY 

RECORDS ' 



TO msn 



TO CHANGE OFFICER RECORDS' 

ENTER SERIAL NUMBER ' GET msn PICTURE "190 
e. g : 005001; 006005; 007001' 

ENTER A BLANK RETURN TO* CHANGE MENU ' 



msn, flag 



112, 140 

SERIAL NUMBER NOT ON THIS OFFICER 



0 13, 40 SAY CHR(7) 
SET TALK OFF 
STORE 1 TO V 
DO WHILE v<200 

STORE v^l TO V 
ENDDO WHILE v<235 
SET COLOR TO 30, 14 
LOOP 

ENDIF # = 0 
ERASE 



* load old values 
STORE name TO mname 
STORE corps TO mcorps 
STORE rankid TO mrankid 
STORE eduid TO meduid 
STORE sex TO msex 
STORE birthdd TO mbirthdd 
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STORE birthiTim TO mbirthinm 
STORE birthyy TO mbirthyy 
STORE birthp TO rnbirthp 



STORE religion TO mreligion 
♦ get new values 



0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 



4 , 20 say 

7. 23 SAY 
a, 23 SAY 

9. 23 SAY 

10. 23 SAY 

11. 23 SAY 

12. 23 SAY 

13. 23 SAY 

14. 23 SAY 

15. 23 SAY 

16. 23 SAY 

17. 23 SAY 



THIS IS THE DATA YOU WANT TO CHANGE ‘ 
SERIAL NUMBER 

NAME 'GET mname 

CORPS 'GET mcorps 

'RANK ' GET mrankid 

'MIL. EDUCATION ' GET meduid 
' SEX ' GET rnsex 

'BIRTH DATE 'GET mbirthdd 

'BIRTH MONTH 'GET mbirthmm 

'BIRTH YEAR 'GET mbirthyy 

'BIRTH PLACE 'GET rnbirthp 

'RELIGION 'GET mreligion 



STORE 'y' TO answer 

0 20,20 SAY ' ARE YOU SURE TO CHANGE THIS DATA ?' 

0 22,16 SAY 'TYPE y FOR yes OR n RETURN TO SERIAL # OPTION' 
0 22, 65 GET answer 
READ 
DO CASE 

♦ replace values 
CASE (answer) = 'y' 

REPLACE name WITH mname, corps WITH rncorps, I'ankid; 
WITH mrankid 

REPLACE eduid WITH meduid, sex WITH msex, birrhcici; 
WITH mbirthdd 

REPLACE birthmm WITH mbirthmm, birthyy WITH mbirthyy 
REPLACE birthp WITH rnbirthp, religion WITH rnreliQ:i.on 
STORE t to flag 
CASE (answer) = 'n' 

STORE t TO flag 
OTHERWISE 
DO ERROR 
ENDCASE 
ENDDO WHILE t 
USE OFFICER 

INDEX ON SERNO TO CHGOFF 

ERASE 

RETURN 
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* PROGRAM NAME : ADDQFF. PRG 

» AUTHOR : DJOKO M. ARIYADI 

* DATE WRITTEN : MAY, 1986 

* PURPOSE : TO PERMIT ADDITIONS TO OFFICER RECORDS 

» PROGRAMS CALLED BY THIS PROGRAM ARE : 

* DBF FILES USED ARE : OFFICER 






SET TALK OFF 
SET CONSOLE ON 
ERASE 

USE OFFICER 

INDEX ON SERNO TO ADDOFF 
USE OFFICER INDEX ADDOFF 
STORE t TO flag 
DO WHILE T 
SET COLOR TO 30, 14 



STORE ' 
ERASE 

0 5, 20 SAY 
0 10, 13 SAY 
' 999999 ' 

0 12, 13 SAY 
0 16, 16 SAY 
READ 

IF msn = ' 

RELEASE m 
RETURN 
ENDIF 
FIND &msn 
IF #<>0 



' TO msn 

'ADDITION TO OFFICER RECORDS' 

'ENTER SERIAL NUMBER ' GET msn PICTURE; 

'e.g : 005004; 007002; 009001' 

'ENTER A BLANK TO RETURN TO ADDITION MENU' 



n, flag 



SET COLOR TO 112,140 

0 12,10 SAY 'THIS SERIAL # IS ALREADY OH FI 



0 13, 40 SAY CHR(7) 

SET TALK OFF 
STORE 1 TO V 
DO WHILE v<200 

STORE v-»-l TO V 
ENDDO WHILE v<250 
SET COLOR TO 30, 14 
LOOP 
ENDIF #<>0 
ERASE 

0 4,23 SAY 'ADDING TO OFFICER RECORD' 

STORE ' ' TO mname 

STORE ' ' TO mcorps 

STORE 0 TO mrankid 

STORE ' ' TO meduid 

STORE ' ' TO msex 

STORE ' ' TO mbirthdd 



94 



LrJ CC: 



TQ mbirthp 



STORE ' ' TQ mbirthmm 

STORE ' ' TO mbirthyy 

STORE ' 

STORE ' ^ TQ mreiigion 



0 


7, 23 


SAY ' 


SERIAL 


NUMBER 




'**msn 




0 


a, 23 


SAY ' 


NAME 




t 


GET 


mname 


0 


9, 23 


SAY ' 


CORPS 






GET 


mcorps 


0 


10, 23 


SAY 


'RANK 




» 


GET 


mr ankid 


0 


11, 23 


SAY 


'MIL. 


EDUCATION 


/ 


GET 


meduid 


0 


12, 23 


SAY 


'SEX 




/ 


GET 


msex 


0 


13, 23 


SAY 


'BIRTH 


DAY 


f 


GET 


mbirthdd 


0 


14, 23 


SAY 


' BIRTH 


MONTH 


# 


GET 


mbirthmm 


0 


15, 23 


SAY 


' BIRTH 


YEAR 


» 


GET 


mbirthyy 


0 


16, 23 


SAY 


' BIRTH 


PLACE 




GET 


mbirthp 


0 


17, 23 


SAY 


'RELIGION 


/ 


GET 


mreiigion 


0 


20, 10 


say 


' HIT 


ENTER TO 


RETURN 


TO 


OFFICER MENU OPTION 



READ 

IF mname = ' ' 

LOOP 
END IF 

♦ add the record 
APPEND BLANK 

REPLACE serno WITH msn , naire WITH mname , corps WITH mcor 
REPLACE rankid WITH mi-'ankid, eduid WITH rneduic.sex; 

WITH TTisex 

REPLACE birthdd WITH mbirthdd , birthmm WITH mbirt.hrnm 
REPLACE birthyy WITH mbirthyy , birthp WITH mbirthp 
REPLACE religion WITH mreiigion 

ENDDO WHILE t 
USE OFFICER 

INDEX ON SERNO TO ADDOFF 
RASE 
ETURN 
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* PROGRAM NAME ; QUERYA. PRG 

» AUTHOR : DJOKO M. ARIYADI 

» DATE WRITTEN : MAY, 1936 

* PURPOSE : TO LIST OFFICERS WHO HAVE ACHIEVED A GIVEN » 

» MILITARY EDUCATION LEVEL 

* PROGRAMS CALLED BY THIS PROGRAM ARE : 

* DBF FILES USED ARE : MILEDU. MEDULIST, OFFICER, CORPS, HANK * 

SET TALK OFF 
ERASE 

SET CONSOLE ON 
STORE T TO FLAG 
SET COLOR TO 30, 14 
STORE T TO Q:FLAG 
DO WHILE Q:FLAG 
ERASE 

'P IT H 

(3 2, i SAY '’QUERY MILITARY EDUCATION LEVEL 

MAY 1986” 

SET COLOR TO 4 



SET COLOR TO 30, 14 

9 IT IT 

9 IT IT 

9 II IT 

9 IT IT 



9 IT IT 

? Given a Military Education Level, this proqrarn; 

will respond with : ” 

9 IT IT 

? NAME, RANK, EDUCATION LEVEL, YEAR-END” 

9 IT IT 



? ” The following is a list of Military Education Levels; 

and their codes 



9 IT IT 

9 IT 

9 IT IT 

9 IT IT 

9 IT IT 

9 IT IT 

SET COLOR TO 4 



You can query one at a time 



9 IT IT 

9 IT 

SET CONSOLE OFF 
WAIT 

SET CONSOLE ON 
ERASE 



TYPE ANY KEY TO CONTINUE'’ '' 
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DO WHILE Q:FLAG 
ERASE 

0 2,1 SAY '♦QUERY MILITARY EDUCATION LEVEL; 

MAY 1986'’ 

SET COLOR TO 4 



SET COLOR TO 
USE MEDLEV 

o f* 

^ n ft 

LIST ♦♦ 

MEDLEDES OFF 

SET COLOR, TO 

on n 



30, 14 

MIL. EDUCATION 



30, 14 



# 

MEDLEVID 



DESCRIPTION" 



TEXT 

PLEASE SELECT CNE DESIRED MIL. EDUCATION NUMBER, ; 
ACCORDING TO 

THE ABOVE LIST (2 DIGITS PLEASE) e. g. "15" AND HIT; 
"RETURN" KEY 
ENDTEXT 

SET COLOR TO 4 

on n 

? " TO FINISH (RETURN TO QUERY MENU OPTION) HIT 

' RETURN ' " 



on n 

SET COLOR TO 30, 14 

ACCEPT " ENTER MIL. EDUCATION NUMBER; 

( 2 DIGITS ) " TO Q;MNO 



ERASE 

0 12,20 SAY "BE PATIENT PLEASE, STILL PROCESSING" 

IF *Q : MNO = " " 

RELEASE ALL LIKE 
ERASE 

STORE F TO C: FOUND 
STORE F TO G:FLAG 
ELSE 

STORE F TO Q: FOUND 
USE MEDLEV 

INDEX ON MEDLEVID TO QUERYl 
SET INDEX TO QUERYl 
FIND "S.Q:MNO" 

IF # = 0 
ERASE 

SET COLOR TO 112, 140 

0 10, 9 SAY " SORRY SCHOOL CANNOT BE FOUND 



? " PLEASE, SEE THE MIL. EDUCATION NUMBER- 

LIST, AND TRY AGAIN" 
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'? TYPE ANY KEY, TC CONTINUE 

SET CONSOLE OFF 

WAIT 

SET CONSOLE ON 
ERASE 

STORE F TO Q: FOUND 
ELSE 

STORE T TO Q: FOUND 
ENDIF 
ENDIF 

IF Q:FOUND 

STORE MEDLEDES TO Q:MEDLEV 
, ERASE 

STORE MEDLEVID TO Q:MNO 
USE MEDLEV 

COPY TO TFi FOR MEDLEVID = ”&Q:MNO" 

USE TFI 

SELECT SECONDARY 
USE MILEDU 

JOIN TO TF2 FOR P. MEDLEVID=S. MEDLEVID FIELDS G. MEDUI D, SERMO, 
MYYEDED, MEDURANK 

USE TF2 

SELECT SECONDARY 
USE MEDULIST 

JOIN TO TF3 FOR P. MEDUID = S. MEDUID FIELDS MEDUDES, P . SERNG, ; 

P. MYYEDED, P. MEDURANK 

USE TF3 

SELECT SECONDARY 
USE OFFICER 

JOIN TO TF4 FOR P. SERNO = S. SERNO FIELDS SERNO, N AME, R A N K I D , ; 

P. MEDURANK, P. MEDUDES, P. MYYEDED, CORPS 

USE TF4 

SELECT SECONDARY 
USE CORPCODE 

JOIN TO TF5 FOR P. CORPS = S. CORPS FIELDS CORPSDES, P. MEDURANK, ; 
P. SERNO, P. NAME, P. RANKID, P. MEDUDES, P. MYYEDED 

USE TF5 

SELECT SECONDARY 
USE RANKLIST 

JOIN TO TF6 FOR P . RANKI D=S. R ANK I D FIELDS RANKDES, P. SERNO, ; 

P. NAME, P. MEDUDES, P. MYYEDED, P. CORPSDES 

STORE T TO Q:FLAG2 
DO WHILE Q:FLAG2 

0 10, a SAY ” DO YOU WANT TC SEE THE LIST ON ; 
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SCREEN or HARDCOPY ?" 
ACCEPT " 

FOR HARDCOPY” TO Q : PRN 
READ 

DO CASE 



INTER 



CASE Q:PRN = 's' 

STORE F TO Q:FLAG2 
ERASE 

CASE QiPRM = 'h' 

STORE F TO Q:FLAG2 
ERASE 

SET PRINT ON 
ERASE 
OTHERWISE 
DO ERROR 
ERASE 

STORE T TO Q:FLAG2 
LOOP 
ENDCASE 
ENDDO 



FOR SCREEN or ; 



OF 



USE TFl 
? ” 



LIST ” 



EQUIVALENT WITH THE LEVEL; 
” > MEDLEDES OFF 



SCHOOL 



NAME 



RANK 

YEAR-END” 



use t£6 

LIST ” ” NAME »» »» > RANKDES > »» »» > MEDUDES - ” " 

MYYEDED OFF 

SET COLOR TO 4 



? ” 

SET CONSOLE OFF 
WAIT 

SET CONSOLE ON 
SET PRINT OFF 
ENDIF 
ENDDO 
ERASE 
ENDDO 
ERASE 
RETURN 



TYPE AMY KEY TO CONTINUE” 
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» PROGRAM NAME : QUERYB, PRG 
^ AUTHOR : DJGKQ t1. ARIYADI 

^ DATE WRITTEN : MAY, 1986 

» PURPOSE : TO LIST OFFICERS CURRENTLY ATTENDING 

^ MILITARY SCHOOL 

♦ PROGRAMS CALLED BY THIS PROGRAM ARE : 

♦ DBF FILES USED ARE : MILEDU. MEDULIST, OFFICER, CORPS, RANK * 

SET TALK OFF 
ERASE 

SET CONSOLE ON 
STORE T TO FLAG 
SET COLOR TO 30, 14 
STORE T TO Q:FLAG 
DO WHILE Q:FLAG 
ERASE 

on n 

(§2,1 SAY "QUERY TYPES OF MILITARY; 

SCHOOL MAY 1986" 

SET COLOR TO 4 



set' color to 30, 14 



? " Given a Specific Military School. This proqi^am wiij ; 

respond with : " 

on n 

? " SERNO, NAME, RANK, NAME OF SCHOOL, ; 

YEAR-START" 

on n 
on n 

? " The following is a list of Military School and; 

their codes” 

on n 

? " You can query one code at a time " 

know ” 



SET COLOR TO 4 



on n 
? " 

SET CONSOLE OFF 
WAIT 

SET CONSOLE ON 



TYPE ANY KEY TO CONTINUE” 



100 



TYPES OF MILITARY; 



ERASE 

DO WHILE Q:FLAG 
ERASE 

0 2, 1 SAY ^QUERY 

SCHOOLS MAY 1988” 

SET COLOR TO 4 

'> «==: = = = = = = = =: = = = = = = = = = = = = = :r = = = = 



SET COLOR TO 30, 14 
USE MEDULIST 

? " MIL. SCHOOL # DESCRIPTION" 

O » rt 

LIST " " ^ MEDUID > " " ^ ; 

MEDUDES OFF 

SET COLOR TO 30, 14 

on n 
on n 

TEXT 

PLEASE SELECT ONE DESIRED MIL. SCHOOL NUMBER, ; 
ACCORDING TO 

THE ABOVE LIST (2 DIGITS PLEASE) e.g. "08" AND HIT; 
"RETURN" KEY 
ENDTEXT 

SET COLOR TO 4 

on n 

? " TO FINISH (RETURN TO QUERY MENU OPTION) 

HIT 'RETURN'" 

on n 
on n 

SET COLOR TO 30, 14 

ACCEPT " ENTER MIL. SCHOOL NUMBER; 

( 2 DIGITS ) " TO Q:MNO 

ERASE 

0 12,20 SAY "BE PATIENT PLEASE, STILL PROCESSING" 

IF G:MNO = " " 

RELEASE ALL LIKE Q* 

ERASE 

STORE F TO Q: FOUND 
STORE F TO Q:FLAG 
ELSE 

STORE F TO Q: FOUND 
USE MEDULIST 

INDEX ON MEDUID TO QUERY2 
SET INDEX TO QUERY2 
FIND "&Q:MNO" 

IF # = 0 
ERASE 

SET COLOR TO 112,140 

0 10,9 SAY " SORRY, SCHOOL CANNOT BE ; 

FOUND" 

on n 
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o » 



PLEASE SEE THE MIL. SCHOOL NUMBER LIST; 
and try another NUMBER" 



TYPE ANY KEY. 



CONTINUE" 

SET CONSOLE OFF 
WAIT 

SET CONSOLE ON 
ERASE 

STORE F TO Q: FOUND 
ELSE 

STORE T TO Q: FOUND 
ENDIF 
ENDIF 

IF Q: FOUND 

STORE MEDUDES TO Q:MEDLST 
ERASE 

STORE MEDUID TO Q:MNO 
USE MEDULIST 

COPY TO TFl FOR MEDUID = "&Q: MNO" 



TC ; 



USE TFl 

■ SELECT SECONDARY 
USE MILEDU 

JOIN TO TF2 FOR P. MEDUID=S. MEDUID FIELDS SERNO, MYYEDST, ; 
MEDURANK 



USE TF2 

SELECT SECONDARY 
USE OFFICER 

JOIN TO TF3 FOR P. SERNO=S. SERNO FIELDS SERNO, NAME. CORPS. ; 
RANKID, P. MEDURANK. P. MYYEDST 

USE TF3 

SELECT SECONDARY 
USE CORPCODE 

JOIN TO TF4 FOR P. CORPS = S. CORPS FIELDS CORPSDES. P. SERNO. : 

P. NAME, P. RANKID, P. MEDURANK, P. MYYEDST 

USE TF4 

SELECT SECONDARY 
USE RANKLIST 

JOIN TO TF5 FOR P. RANKID = S. RANKID FIELDS RANKDES. P. CORPSDES, 
P. SERNO, P. NAME, P. MYYEDST 

STORE T TO Q:FLAG2 
DO WHILE G:FLAG2 



@ 10, 8 SAY 
or HARDCOPY ?" 

^ tf fl 

ACCEPT " 



DO YOU WANT TO SEE THE LIST ON SCREE 



ENTER 's' FOR SCREEN or 'h'; 



10 



[tj It} 



FCR HARDCOPY'’ TO QsPRN 
READ 

DO CASE 

CASE G:?RM = 's' 

STORE F TO C : FLAG'2 
ERASE 

CASE S:?RN = 'h' 

STORE F TO Q:FLAG2 
ERASE 

SET PRINT ON 
ERASE 
OTHERWISE 
DO ERROR 
ERASE 

STORE T TO G: FLAGS 
LOOP 

endcase 

ENDDO 



USE TFl 



LIST " 

o n 



” - MEDUDES CFF 

THE NAMES OF OFFICERS ARE 



CORPS 



? ” SERNO rank 

YEAR-START'’ 



NAME 



ucs tf5 

LIST ” ” - SERNO - - RANKDES - ” - ^ NAME - " 

CORPSDES - ” ” MYYEDST OFF 

SET COLOR TO 4 



? ” TYPE ANY KEY 70 CGKTINLE" 

SET CONSOLE OFF 

WAIT 

SET CONSOLE ON 
SET PRINT OFF 
ENDIF 
ENDDO 
ERASE 
NDDO 

Rase 

RETURN 
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♦ ♦ ♦ ^ • 












PROGRAM NAME 
AUTHOR 

DATE WRITTEN 
PURPOSE 



QUERYC. PRG 
DJGKO M. ARIYADI 
MAY, 1986 

GIVEN A SERIAL NUMBER, TO DESCRIBE THAT 
THAT OFFICER'S PROMOTION HISTORY 
PROGRAMS CALLED BY THIS PROGRAM ARE : 

DBF FILES USED ARE : OFFICER, CORPS, RANK, RANKLIST 


















SET TALK OFF 
ERASE 

SET CONSOLE ON 
STORE T TO FLAG 
SET COLOR TO 30, 14 
STORE T TO Q:FLAG 
DO WHILE Q:FLAG 
ERASE 

o w t* 



0 2, 1 SAY ^QUERY 

MAY 1986« 



OFFICER'S PROMOTION HISTORY 



SET COLOR TO 4 

O ft ___________ 



SET COLOR TO 30, 14 



? ^ Given an Officer's Serial Number, this pi^oqram; 

will respond with ; " 

f:* ft ft 



? " HIS PROMOTION HISTORY, INCLUDING DATS AND; 

ORDER NUMBER " 

OH H 

OH H 

? ” The following is a list of Officer's Serial; 

Number and it's name " 

O tf ft 

? You can type serial number which you like; 

to know” 



SET COLOR TO 4 



Of* « 
o ft 

SET CONSOLE OFF 



TYPE ANY KEY TO CONTINUE” 
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WAIT 



SET CONSOLE ON 
ERASE 

DC WHILE Q:FLAG 
ERASE 

0 2, 1 SAY ^GUERY OFFICER'S RANK ; 

HISTORY MAY 1986*’ 

SET COLOR TO 4 



n 



SET COLOR TO 30, 14 
USE OFFICER 

INDEX ON SERNO TO DXOFF 
SET INDEX TO DXOFF 



rs 

FILE*’ 



OFFICER'S SERIAL 



ALREADY ON THIS; 



SERIAL # NAME” 



LIST ” ” ^ SERNO ^ NAME; 

OFF 

SET COLOR TO 30, 14 

on ft 
on ff 

TEXT 

PLEASE SELECT ONE DESIRED MIL. EDUCATION NUMDER, ; 
ACCORDING TO 

THE ABOVE 'LIST (2 DIGITS PLEASE) e. q. ”06” AND HIT; 
”RETURN” KEY 
ENDTEXT 

SET COLOR TO 4 



HIT 



( 6 



? ” TO FINISH (RETURN TO QUERY MENU OPTION); 

RETURN ' ” 

on ft 

SET COLOR TO 30, 14 

ACCEPT ” ENTER SERIAL NUMBER e. q ; 

DIGITS ) ” TO Q:MNQ 

ERASE 

0 12,20 SAY ”BE PATIENT PLEASE, STILL PROCESSING” 

IF Q:MNC = ” ” 

RELEASE ALL LIKE Q» 

ERASE 

STORE F TO Q: FOUND 
STORE F TO Q:FLAG 
ELSE 

STORE F TO Q: FOUND 
FIND "S.Q:MNO” 

IF # = 0 
ERASE 

SET COLOR TO 112, 140 

0 10,9 SAY ” SORRY, SERIAL NUMBER CANNOT BE 



105 



FOUND 



PLEASE, SEE THE SERIAL NUMBER'S LIST; 

AND TRY AGAlhr 

?»» TYPE ANY KEY, TO CONTINUE'’ 

SET CONSOLE OFF 

WAIT 

SET CONSOLE ON 
ERASE 

STORE F TO Q: FOUND 
ELSE 

STORE T TO Q: FOUND 
ENDIF 
ENDIF 

IF Q:FOUND 

STORE NAME TO Q : OFF 
ERASE 

STORE SERNO TO Q:MNO 
USE OFFICER 

COPY TO TFl FOR SERNO = ’’ScQ-.MNO” 

USE TFl 

SELECT SECONDARY 
USE RANKLIST 

JOIN TO TEMPI FOR P . RANKID=S- RANKID FIELDS P . SERNO, P . NAME , ; 
RANKDES, P. CORPS 

USE TEMPI 
SELECT SECONDARY 
USE CORPCODE 

JOIN TO TEMPO FOR P. CORPSES. CORPS FIELDS P. SERNO, P . NAME, ; 

P. RANKDES, CORPSDES, P. NAME 

USE TFl 

SELECT SECONDARY 
USE RANK 

JOIN TO TF FOR P. SERNO = S. SERNO FIELDS S. R ANKID, RAN’KDD, RANKMM , 
RANKYY, RORNO, RDATORNO 

USE TF 

SELECT SECONDARY 
USE RANKLIST 

JOIN TO TF3 FOR P. RANKID=S. RANKID FIELDS R ANKDES, P . RA NKDD , ; 

P. RANKMM, P. RANKYY, P. RORNO, P. RDATORNO 
USE TF3 

SORT ON RANKYY TO TF4 ASCENDING 

STORE T TO Q:FLAG2 
DO WHILE Q:FLAG2 

0 10, a SAY " DO YOU WANT TO SEE THE LIST ON SCREEN 

or HARDCOPY ?” 
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9 ft 



ACCEPT 

FOR HARDCOPY" TO Q : PRM 
READ 

DO CASE 

CASE Q:PRM 
STORE F 



ENTER FOR SCREEN or ' 



TO Q:FLAG2 



ERASE 

CASE Q:PRN = 'h' 

STORE F TO Q:FLAG2 
ERASE 

SET PRINT ON 
ERASE 
OTHERWISE 
DO ERROR 
ERASE 

STORE T TO Q:FLAG2 
LOOP 
ENDCASE 
ENDDO 



USE TEMPO 



? " PROMOTION HISTORY FOR : " 

on ft 

LIST " " - SERNO - " " ^ NAME - " " ^ RANKDES ^ ; 

" " - CORPSDES OFF 

own 

? " RANK DATE MONTH YEAR; 

ORDER-NUMBER" 



n 



USE TF4 

LIST " " RAMKDES ^ ^ RANKDD > " 

RANKMM ^ ^ RANKYY - " " - RORNO OFF 

SET COLOR TO 4 



? " 

SET CONSOLE OFF 
WAIT 

SET CONSOLE ON 
SET PRINT OFF 
ENDIF 
ENDDO 
ERASE 
ENDDO 
ERASE 
RETURN 



TYPE ANY KEY TO CONTINUE” 
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PROGRAM NAME : QUERYD. PRG 

AUTHOR : DJOKO M. ARIYADI 

DATE WRITTEN : MAY. 1986 

PURPOSE : TO OBTAIN AN OFFICER'S JOB HISTORY. GIVEN A 

SERIAL NUMBER 

PROGRAMS CALLED BY THIS PROGRAM ARE : 

DBF FILES USED ARE ; OFFICER, CORPS. RANKLIST, J030FF, JOELIST* 



SET TALK OFF 
ERASE 

SET CONSOLE ON 
STORE T TO FLAG 
SET COLOR TO 20, 14 
STORE T TO Q:FLAG 
DO WHILE Q:FLAG 
ERASE 



0 2, i SAY "QUERY 
HISTORY 



MAY isas" 



OFFICER'S J02; 



SET COLOR TO 4 

7 ”=========== 



SET COLOR TO 30, 14 

9 w ft 



9 ft ft 

9 ft ft 

? " 

respond with 

9 ft ft 



Given a Officer's Serial Number, Thxs proqram; 

ft 



? " OFFICER'S JOB HISTORY, INCLUDES RANK. DATE. ; 

STATION, AND CITY" 



? " The following is a list of Officer's Serial; 

Number and their name " 

9 ft ft 

? " You can query one serial number at a time; 

to know" 

9 ft ft 

9 ft ft 



SET COLOR TO 4 

9ft — — — — — — — — - — — 



9 « ft 

? " 

SET CONSOLE OFF 
WAIT 



TYPE ANY KEY TO CONTINUE" 
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SET CONSOLE ON 
ERASE 

DO WHILE Q:FLAG 
ERASE 

Q 2, 1 SAY "QUERY OFFICER'S JOB HISTORY 

MAY 1986" 

SET COLOR TO 4 

O ft— — — _ _ — — — — — — — — — — — — — — = = — ♦ 

• — — — _______________ ^ ^ 



SET COLOR TO 30, 14 
USE OFFICER 

INDEX ON SERNC TO DXOFF 
SET INDEX TO DXOFF 

? " * OFFICER'S SERIAL 



FILE" 






ALREADY ON THIS; 



? " SERIAL # NAME" 

/> f» n 

LIST " " ^ SERNC " 

NAME OFF 

SET COLOR TO 30, 14 



0 » « 

TEXT 

PLEASE SELECT ONE DESIRED OFFICER' SERIAL NUMBER, ; 
ACCORDING TO 

THE ABOVE LIST <6 DIGITS PLEASE) e. g. "001111" AND ; 
HIT "RETURN" KEY 
ENDTEXT 

SET COLOR TO 4 



o ft « 

? " TO FINISH (RETURN TO QUERY MENU OPTION) ; 

HIT 'RETURN'" 



SET COLOR TO 30, 14 

ACCEPT " ENTER SERIAL NUMBER e.g; 

< 6 DIGITS ) " TO Q:MNO 



ERASE 

(3 12,20 SAY "BE PATIENT PLEASE, STILL PROCESSING" 

IF Q:MNO = " " 

RELEASE ALL LIKE Q* 

ERASE 

STORE F TO Q: FOUND 
STORE F TO Q:FLAG 
ELSE 

STORE F TO G: FOUND 
FIND "&Q:MNO" 

IF # = 0 
ERASE 

SET COLOR TO 112, 140 

0 10,9 SAY " SORRY, SERIAL NUMBER CANNOT BE 
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FOUND 



7 »» » 



AND TRY AGAIN” 



PLEASE, SEE THE SERIAL NUMBER LIST; 



?” TYPE ANY KEY, TO CONTINUE 

SET CONSOLE OFF 

WAIT 

SET CONSOLE ON 
ERASE 

STORE F TO Q: FOUND 
ELSE 

STORE T TO Q: FOUND 
ENDIF, 

ENDIF 

IF Q: FOUND 

STORE NAME TO Q:OFF 
ERASE 

STORE SERNO TO Q : MNO 
USE OFFICER 

COPY TO TFl FOR SERNO = ”&Q:MNO” 



USE TFl 

SELECT SECONDARY 
USE RANKLIST 

JOIN TO TEMPI FOR P. RANKID=S . RANKI D FIELDS P. SERNO, P . NAME, 
RANKDES, P. CORPS 

USE TEMPI 
SELECT SECONDARY 
USE CORPCODE 

JOIN TO TEMPO FOR P. CORPSES. CORPS FIELDS P. SERNO, P . NAME, ; 
P. RANKDES, CORPSDES 

USE TFl 

SELECT SECONDARY 
USE JOBOFF 

JOIN TO TF FOR P. SERNO=S. SERNO FIELDS JOBRANK, JOBI D , J03DD, ; 
JOBMM, JOBYY 

USE TF 

SORT ON JOBRANK TO TF2 DESCENDING 



USE TF2 

SELECT SECONDARY 
USE RANKLIST 

JOIN TO TF3 FOR P . JOBRANK =S . RANK I D FIELDS R ANKDES, P . JOB 1 D, ; 
P. JOBDD, P. JOBMM, P. JOBYY 



USE TF3 

SELECT SECONDARY 
USE JOBLIST 



1 10 



JOIN TO TF4 FOR P. J0BID=3. JOBID FIELDS JOBDES, P. RANKDES. ; 
P. JOBDD, P. JOBMM, P. JOBYY, JOBSTAT 



USE TF4 

SELECT SECONDARY 
USE STATLIST 

JOIN TO TF5 FOR P. JCBSTAT=S. STATCODE FIELDS CITYSTAT, STaTDE 
P. JOBDES, P. RANKDES, P. JOBDD, P. JOBMM, P. JOBYY 



USE TF5 

SELECT SECONDARY 
USE CITYLIST 

JOIN TO TFS FOR P. CITYSTAT=S. CITYCODE FIELDS P. RANKDES, ; 
P. JOBDES, P. JOBDD, P. JOBMM, P. JOBYY, P. STATDES. CITYD,ES 



STORE T TO Q:FLAG2 
DO WHILE Q:FLAG2 

ca 10, a SAY " DO YOU WANT TO SEE THE LIST ON SCRE 

or- HARDCOPY ?" 

O » w 



ACCEPT ” ENTER 

FDR HARDCOPY” TO Q:PRN 
. READ 

DO CASE 

CASE QiPRN = 's' 

STORE F TO Q:FLAG2 
ERASE 

CASE Q:PRN = 'h' 

STORE F TO Q:FLAG2 
ERASE 

SET PRINT ON 
ERASE 
OTHERWISE 
DO ERROR 
ERASE 

STORE T TO Q:FLAG2 
LOOP 
ENDCASE 
ENDDO 



FOR SCREEN or 'h' 



USE TEMP2 

? ” JOB HISTORY FOR 

'■> H tf 

list " " ^ SERNO * NAME - " " + RANKDE 

" " * CORPSDES OFF 

'> n H 

? " RANK JOB 

MM/YY STATION CITY" 



n 



USE TFS 



ill 



INDEX ON JOBYY^JQBMM TO TF7 
USE TF6 INDEX TF7 

LIST RAMKDES, JGEDES, JOann, JQBYY, STATDE3, CITYDES OFF 
SET COLCR TO 4 



SET CONSOLE OFF 
WAIT 

SET CONSOLE ON 
SET PRINT OFF 
ENDIF 
ENDDO 
ERASE 
ENDDO 
ERASE 
RETURN 



TYPE AMY KEY TO CONTINUE^ 
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* PROGRAM NAME : QUERYE. PRG 

* AUTHOR : DJOKO M. ARIYADI 

* DATE WRITTEN : MAY, 1986 

* PURPOSE : TO OBTAIN AN OFFICER'S JOB ELIGIBLE 

* PROGRAMS CALLED BY THIS PROGRAM ARE : 

► DBF FILES USED ARE : OFFICER, CORPS, RANKLIST, JOBOFF, JOBLIST* 

SET TALK OFF 
ERASE 

SET CONSOLE ON 
STORE T TO FLAG 

SET COLOR TO 30, 14 
STORE T TO Q:FLAG 
DO WHILE Q:FLAG 
ERASE 



0 2, 1 SAY "QUERY OFFICER'S JOB ; 

ELIGIBLE MAY 1986" 

SET COLOR TO 4 



SET COLOR TO 30, 14 

9 » r» 



? " 

respond with: 



Given a Officer's Serial Number, this program ; 

n 



? " JOB ELIGIBLE INCLUDES, JOB-ID, DESCRIPTION, ; 

STATION AND CITY" 



SET COLOR TO 4 

o n — — — — — — — — — — — — 



? TYPE ANY KEY TO CONTINUE" 

SET CONSOLE OFF 
WAIT ‘ 

SET CONSOLE ON 
ERASE 
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OFFICER'S JOB ELIGIBLE; 



DO WHILE Q:FLAG 
ERASE 

0 2, 1 SAY "QUERY 

MAY 1986" 

SET COLOR TO 4 



SET COLOR TO 30, 14 

on n 
on n 
on n 
on n 
on n 
on « 

TEXT 

PLEASE SELECT ONE DESIRED OFFICER' SERIAL NUMBER,; 

WHICH YOU 

LIKE TO KNGW (6 DIGITS PLEASE) e.q. "333233" AMD HIT 
"RETURN" KEY 
ENDTEXT 

SET COLOR TO 4 

on n 
on n 

? " TO FINISH (RETURN TO QUERY MENU OPTION 

HIT 'RETURN'" 

on n 

SET COLOR TO 30, 14 

on n 
on n 

ACCEPT ” ' ENTER SERIAL NUMBER e, q ; 

( 6 DIGITS ) " TO Q:MNO 

ERASE 

0 12,20 SAY "BE PATIENT PLEASE, STILL PROCESSING" 

USE OFFICER 

INDEX OH SERNO TO DX0FF5 
USE OFFICER INDEX DX0FF5 
IF Q:MMO = " " 

•RELEASE ALL LIKE Q* 

ERASE 

STORE F TO Q; FOUND 
STORE F TO Q:FLAG 
ELSE 

STORE F TO Q: FOUND 
FIND "&Q:MNO" 

IF # = 0 
ERASE 

SET COLOR TO 112, 140 

0 10,9 SAY " SORRY, SERIAL NUMBER CANNOT B 

FOUND" 
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PLEASE, SEE THE SERIAL NUMBER LIST AND 



? " 

TRY AGAIN" 

o « » 

?" TYPE ANY KEY, TO CONTINUE" 

SET CONSOLE OFF 

WAIT 

SET CONSOLE ON 
ERASE 

STORE F TO Q: FOUND 
ELSE 

STORE T TO Q; FOUND 
ENDIF 
ENDIF 

IF QiFOUND 

STORE NAME TO Q : OFF 
ERASE 

STORE SERNO TO Q : MNO 
USE OFFICER 

COPY TO TF15 FOR SERNO = "&Q: MNO" 

USE TF15 

SELECT SECONDARY 
USE RANKLIST 

JOIN TO TEMP15 FOR P . RANKID=S. RANKID FIELDS P. SERNC, P. NAME, ; 
RANKDES, P. CORPS 

USE TEMP15 
SELECT SECONDARY 
USE CORPCODE 

JOIN TO TEMP25' FOR P. CORPS = S. CORPS FIELDS P. SERNO, P. NAME, ; 

P. RANKDES, CORPSDES 

STORE T TO Q:FLAG3 
DO WHILE Q:FLAG3 

(a 10, a SAY " JOB AVAILABLE FOR THE SAME RANK or ; 

AFTER PROMOTION ?" 

O ft ft 

ACCEPT " ENTER 's' FOR SAME RANK or 'p'; 

PROMOTION" TO Q:PRN 
READ 

DO CASE 

CASE Q:PRN = 's' 

STORE F TO Q:FLAG3 
use tfl5 

SELECT SECONDARY 
USE JOBRNK 

JOIN TO TF25 FOR P . RANKID=S. JOBRK FIELDS JOBID 
ERASE 

CASE Q:PRN = 'p' 

STORE F TO Q:FLAG3 

ERASE 

USE TF15 
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STORE i TC RK 
STORE RAHKID TO MRANK 
STORE MRAMK^RK TO RANKID 
USE JOBRNK 

COPY TO TF25 FOR JOBRK = RANP^ID 
OTHERWISE 
DO ERROR 
ERASE 

STORE T TO Q:FLAG3 
LOOP 
ENDCASE 
ENDDQ 

USE TF15 

SELECT SECONDARY 
USE JQBEDU 

JOIN TO TF05 FOR P. EDUID=S. JOBED FIELDS JQBID 
USE TF15 

SELECT SECONDARY 
USE JGBCORP 

JOIN TO TF45 FOR P. CORPSES. JOBCO FIELDS JOBID 
USE TF25 

SELECT SECONDARY 
USE TF35 

TO TF55 FOR P. JQBID=S. JOBID FIELDS JOBID 
USE TF55 

SELECT SECONDARY 
USE TF45 

TO TF65 FOR P. JOBID=S. JOBID FIELDS JQBID 

USE JDBLIST 
SELECT SECONDARY 
USE TF65 

TO TF75 FOR P . JOB I D= S . JQBI D FIELDS P. JQBID, JQBDES, JuBSTAT 
USE TF75 

SELECT SECONDARY 
USE STATLIST 

TO TF85 FOR P. JOBSTAT = S. STATCQDE FIELDS STATDES, C 1 T YST A'^ , ; 
P. JQBID, P. JQBDES 

USE TF85 

SELECT SECONDARY 
USE CITYLIST 

JOIN TO TF95 FOR P. CITYSTAT=S. CITYCODE FIELDS P. JOBID, ; 

P. JQBDES, P. STATDES, CITYDES 

STORE T TO Q:FLAG2 
DO WHILE Q:FLAG2 



JOIN 



JOIN 



JOIN 



JOIN 
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10, a SAY ” DQ YOU WANT TO SEE THE LIST ON SCREEN; 

or HARDCOPY ?" 



ACCEPT ” ENTER 

FOR HARDCOPY” TO Q:PRM 
READ 

DO CASE 



CASE Q:PRN = 's' 

STORE F TO Q:FLAG2 
ERASE 

CASE Q:PRN = 'h' 

STORE F TO Q:FLAG2 
ERASE 

SET PRINT ON 
ERASE 
OTHERWISE 
DO ERROR 
ERASE 

STORE T TO Q:FLAG2 
LOOP 



ENDCASE 



FOR SCREEN or 'h'; 



USE TEMP25 



? ” JOBS ELIGIBLE FOR 

9 »t n 

LIST ” ” ^ SERNO ^ MANE ^ RAMKDEC; 

" ” CORPSDES OFF 

9 ft ff 

? ” JOB-ID DESCRIPTION 3TATTGM 

CITY” 



USE TF95 

LIST ” " ^ JCBID ^ - JOBDES ^ - STATDEC ^ ; 

” - CITYDES OFF 

SET COLOR TO 4 



SET CONSOLE OFF 
WAIT 

SET CONSOLE ON 
SET PRINT OFF 
ENDIF 
ENDDC 
ERASE 
ENDDO 
ERASE 
RETURN 



TYPE ANY KEY TO CONTINUE” 
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